diff options
Diffstat (limited to 't/002-complicated-matching.t')
| -rw-r--r-- | t/002-complicated-matching.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/002-complicated-matching.t b/t/002-complicated-matching.t index 1c0a7b9..9fa204f 100644 --- a/t/002-complicated-matching.t +++ b/t/002-complicated-matching.t @@ -15,11 +15,11 @@ has [qw/a b c/] => ( package main; my $foo = Foo->new(a => 'foo', b => 'bar', c => 'baz'); -ok($foo->match(a => [qr/o/, sub { length(shift) == 4 }]), +ok($foo->match(a => [qr/o/, sub { length == 4 }]), 'arrayref matching works'); -ok($foo->match(a => [qr/b/, sub { length(shift) == 3 }]), +ok($foo->match(a => [qr/b/, sub { length == 3 }]), 'arrayref matching works'); -ok(!$foo->match(a => [qr/b/, sub { length(shift) == 4 }]), +ok(!$foo->match(a => [qr/b/, sub { length == 4 }]), 'arrayref matching works'); ok($foo->match('!a' => 'bar', b => 'bar', '!c' => 'bar'), 'negated matching works'); |