diff options
author | doy <doy@tozt.net> | 2008-12-07 01:07:57 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-07 01:07:57 -0500 |
commit | fc8ee5015443c4316945f2994a3fdcf97546e301 (patch) | |
tree | d61b5a6d7a6f679a8c0b4d862af662adbd7fd518 /t | |
parent | 4d86e8c87c080f2a744559fa92cd5f0894637095 (diff) | |
download | moosex-role-matcher-fc8ee5015443c4316945f2994a3fdcf97546e301.tar.gz moosex-role-matcher-fc8ee5015443c4316945f2994a3fdcf97546e301.zip |
add default match parameter in match, not in _apply_to_matches
Diffstat (limited to 't')
-rw-r--r-- | t/101-parameterized.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/101-parameterized.t b/t/101-parameterized.t index 4b02fff..b76ae0f 100644 --- a/t/101-parameterized.t +++ b/t/101-parameterized.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 1; +use Test::More tests => 2; use Test::Deep; package Foo; @@ -52,4 +52,6 @@ push @{ $foos->foos }, $foo1; push @{ $foos->foos }, $foo2; push @{ $foos->foos }, $foo3; is($foos->first_match(sub { length() < 3 }), $foo2, - 'default parameter is passed correctly'); + 'default parameter is passed correctly to first_match'); +ok($foo1->match('foo'), + 'default parameter is passed correctly to match'); |