Commit | Line | Data |
---|---|---|
096619f2 MG |
1 | #!/usr/bin/perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use Test::More tests => 4; | |
6 | BEGIN { use_ok('Digest::HighwayHash') }; | |
7 | ||
2893b3c3 MG |
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'; |