From e857250bf4ecc47875433018b35f1a71120b3862 Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Tue, 3 Oct 2017 22:04:42 +1300 Subject: Add some error tests Ensure that bad inputs raise appropriate fatal errors. --- t/words.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 't/words.t') diff --git a/t/words.t b/t/words.t index a917a37..a2ca767 100644 --- a/t/words.t +++ b/t/words.t @@ -8,10 +8,10 @@ use Test::More tests => 1; use List::Filters 'filter'; -our $VERSION = 0.04; +our $VERSION = 0.05; -my @words = qw(foo bar baz quux wibble florb); -my $filters = { +my @words = qw(foo bar baz quux wibble florb); +my $filters = { all => sub { 1 }, has_b => sub { m/ b /msx }, has_w => sub { m/ w /msx }, -- cgit v1.2.3