X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;ds=sidebyside;f=t%2FDigest-HighwayHash.t;h=9fcd1953d2bd75872e0fa046ec20d48fd6b2efcd;hb=b3ec381ed12b039cede8386b80ad2cb11c0af03d;hp=4368c639834c22ab32f9f8c210345d62b67a0b0e;hpb=096619f2ab2b023d65ef91911b804f2d186c3c69;p=digest-highwayhash.git

diff --git a/t/Digest-HighwayHash.t b/t/Digest-HighwayHash.t
index 4368c63..9fcd195 100644
--- a/t/Digest-HighwayHash.t
+++ b/t/Digest-HighwayHash.t
@@ -2,9 +2,31 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More tests => 10;
+use Test::Exception;
+
 BEGIN { use_ok('Digest::HighwayHash') };
 
-is highway_hash64([1, 2, 3, 4], 'hello'), 11956820856122239241, 'highway_hash64';
-is_deeply highway_hash128([1, 2, 3, 4], 'hello'), [3048112761216189476, 13900443277579286659], 'highway_hash128';
-is_deeply highway_hash256([1, 2, 3, 4], 'hello'), [8099666330974151427, 17027479935588128037, 4015249936799013189, 10027181291351549853], 'highway_hash256';
+is highway_hash64([1, 2, 3, 4], 'hello'), '11956820856122239241', 'highway_hash64';
+is_deeply highway_hash128([1, 2, 3, 4], 'hello'), ['3048112761216189476', '13900443277579286659'], 'highway_hash128';
+is_deeply highway_hash256([1, 2, 3, 4], 'hello'), ['8099666330974151427', '17027479935588128037', '4015249936799013189', '10027181291351549853'], 'highway_hash256';
+
+my $state64  = Digest::HighwayHash->new([1, 2, 3, 4]);
+my $state128 = Digest::HighwayHash->new([1, 2, 3, 4]);
+my $state256 = Digest::HighwayHash->new([1, 2, 3, 4]);
+
+$state64->append('hello');
+$state64->append('');
+$state128->append('h');
+$state128->append('ell');
+$state128->append('o');
+$state256->append('hell');
+$state256->append('o');
+
+is $state64->finish64, '11956820856122239241', 'finish64';
+is_deeply $state128->finish128, ['3048112761216189476', '13900443277579286659'], 'finish128';
+is_deeply $state256->finish256, ['8099666330974151427', '17027479935588128037', '4015249936799013189', '10027181291351549853'], 'finish256';
+
+throws_ok { highway_hash64 1, 'hello' }                qr/not an ARRAY reference/, 'bad key 1';
+throws_ok { highway_hash128 [1, 2], 'hello' }          qr/Key for highway_hash must be a 4-element array/, 'bad key 2';
+throws_ok { highway_hash256 [1, 2, 3, 4, 5], 'hello' } qr/Key for highway_hash must be a 4-element array/, 'bad key 3';