diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/errors.t | 12 | ||||
| -rw-r--r-- | t/words.t | 6 |
2 files changed, 9 insertions, 9 deletions
@@ -6,12 +6,12 @@ use utf8; use Test::More tests => 4; -use List::Filters 'filter'; +use List::Breakdown 'breakdown'; -our $VERSION = 0.05; +our $VERSION = 0.06; my @t = 1 .. 3; -is( eval { filter { a => undef }, @t } || undef, undef, 'error_notref_undef' ); -is( eval { filter { a => 'a' }, @t } || undef, undef, 'error_notref_def' ); -is( eval { filter { a => [] }, @t } || undef, undef, 'error_badref_array' ); -is( eval { filter { a => \{} }, @t } || undef, undef, 'error_badref_double' ); +is( eval { breakdown { a => undef }, @t } || undef, undef, 'error_notref_undef' ); +is( eval { breakdown { a => 'a' }, @t } || undef, undef, 'error_notref_def' ); +is( eval { breakdown { a => [] }, @t } || undef, undef, 'error_badref_array' ); +is( eval { breakdown { a => \{} }, @t } || undef, undef, 'error_badref_double' ); @@ -6,9 +6,9 @@ use utf8; use Test::More tests => 1; -use List::Filters 'filter'; +use List::Breakdown 'breakdown'; -our $VERSION = 0.05; +our $VERSION = 0.06; my @words = qw(foo bar baz quux wibble florb); my $filters = { @@ -22,7 +22,7 @@ my $filters = { }, has_ba => qr/ba/msx, }; -my %filtered = filter $filters, @words; +my %filtered = breakdown $filters, @words; my %expected = ( all => [qw(foo bar baz quux wibble florb)], |