diff options
| author | doy <doy@tozt.net> | 2008-12-06 23:01:49 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2008-12-06 23:01:49 -0500 |
| commit | c9bf554fff299bb429b7f93c474c97d14b749e3f (patch) | |
| tree | b6788c5334516c8f9c73c0b7f5d497fc4d1bdb26 /t | |
| parent | cf5ced804a7ad2c8d101a72d44a0068e69b51fe4 (diff) | |
| download | moosex-role-matcher-c9bf554fff299bb429b7f93c474c97d14b749e3f.tar.gz moosex-role-matcher-c9bf554fff299bb429b7f93c474c97d14b749e3f.zip | |
get rid of each_match, it really doesn't belong here
Diffstat (limited to 't')
| -rw-r--r-- | t/100-collection.t | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/t/100-collection.t b/t/100-collection.t index 9c406e7..4a29e4d 100644 --- a/t/100-collection.t +++ b/t/100-collection.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 3; use Test::Deep; package Foo; @@ -57,7 +57,3 @@ ok(!$foos->any_match(b => qr/z/), 'any_match works'); is_deeply([shallow($foo2), shallow($foo3)], set($foos->grep_matches(c => qr/o/)), 'grep_matches works'); -my @each; -$foos->each_match(sub { push @each, $_ }, b => qr/a/); -is_deeply([shallow($foo1), shallow($foo3)], set(@each), - 'each_match works'); |