From fc8ee5015443c4316945f2994a3fdcf97546e301 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 7 Dec 2008 01:07:57 -0500
Subject: add default match parameter in match, not in _apply_to_matches

---
 t/101-parameterized.t | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 't')

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');
-- 
cgit v1.2.3-54-g00ecf