aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2017-10-05 22:48:57 +1300
committerTom Ryder <tom@sanctum.geek.nz>2017-10-05 22:48:57 +1300
commit1b3ac4aeda20560cac52ee2e0b256d13aac6e231 (patch)
treeaaab61d2905f502fa4dc345f4a937bc43df356db
parent3624615d229e721cc5c8a13c5ed83ff253712d5b (diff)
downloadList-Breakdown-1b3ac4aeda20560cac52ee2e0b256d13aac6e231.tar.gz
Add a test to cover a missing branch
-rw-r--r--t/errors.t6
1 files changed, 5 insertions, 1 deletions
diff --git a/t/errors.t b/t/errors.t
index b229a4b..11a7658 100644
--- a/t/errors.t
+++ b/t/errors.t
@@ -4,13 +4,17 @@ use strict;
use warnings;
use utf8;
-use Test::More tests => 4;
+use Test::More tests => 5;
use List::Breakdown 'breakdown';
our $VERSION = '0.13';
my @t = 1 .. 3;
+
+is( eval { breakdown [ a => 'a' ], @t } || undef,
+ undef, 'error_wrongref_spec' );
+
is( eval { breakdown { a => undef }, @t } || undef,
undef, 'error_notref_undef' );
is( eval { breakdown { a => 'a' }, @t } || undef, undef, 'error_notref_def' );