t/Digest-HighwayHash.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 4;
   6 BEGIN { use_ok('Digest::HighwayHash') };
   7
   8 is highway_hash64([1, 2, 3, 4], 'hello'), 11956820856122239241, 'highway_hash64';
   9 is_deeply highway_hash128([1, 2, 3, 4], 'hello'), [3048112761216189476, 13900443277579286659], 'highway_hash128';
  10 is_deeply highway_hash256([1, 2, 3, 4], 'hello'), [8099666330974151427, 17027479935588128037, 4015249936799013189, 10027181291351549853], 'highway_hash256';