From fb44a513cdfb85b3a6bddf97f246def598b63b73 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sun, 17 Jun 2018 00:11:38 +0300 Subject: [PATCH] Test some error conditions --- Makefile.PL | 3 +++ README | 1 + t/Digest-HighwayHash.t | 8 +++++++- 3 files changed, 11 insertions(+), 1 deletion(-) diff --git a/Makefile.PL b/Makefile.PL index 79a7349..4c8cab3 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -12,6 +12,9 @@ WriteMakefile( PREREQ_PM => { qw/Math::Int64 0/, }, + TEST_REQUIRES => { + qw/Test::Exception 0/, + }, INC => '-I. -Ihighwayhash/c', OBJECT => '$(O_FILES)', META_ADD => { diff --git a/README b/README index cb87336..d614c08 100644 --- a/README +++ b/README @@ -18,6 +18,7 @@ DEPENDENCIES This module requires these other modules and libraries: * Math::Int64 +* Test::Exception COPYRIGHT AND LICENCE diff --git a/t/Digest-HighwayHash.t b/t/Digest-HighwayHash.t index c4880a4..594b4da 100644 --- a/t/Digest-HighwayHash.t +++ b/t/Digest-HighwayHash.t @@ -2,9 +2,15 @@ use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 7; +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'; + +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'; -- 2.30.2