From c9bf554fff299bb429b7f93c474c97d14b749e3f Mon Sep 17 00:00:00 2001 From: doy Date: Sat, 6 Dec 2008 23:01:49 -0500 Subject: get rid of each_match, it really doesn't belong here --- t/100-collection.t | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 't') 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'); -- cgit v1.2.3-54-g00ecf