diff options
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'); |