From ca7642226a2992e3cc4e4e8345a0fe5be6fef38c Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sat, 6 Dec 2008 23:20:53 -0500
Subject: more tests

---
 t/101-parameterized.t | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 t/101-parameterized.t

(limited to 't/101-parameterized.t')

diff --git a/t/101-parameterized.t b/t/101-parameterized.t
new file mode 100644
index 0000000..53f6d4e
--- /dev/null
+++ b/t/101-parameterized.t
@@ -0,0 +1,55 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 1;
+use Test::Deep;
+
+package Foo;
+use Moose;
+with 'MooseX::Role::Matcher' => { default_match => 'a' };
+
+has [qw/a b c/] => (
+    is       => 'ro',
+    isa      => 'Str',
+    required => 1,
+);
+
+package FooCollection;
+use Moose;
+
+has foos => (
+    is      => 'rw',
+    isa     => 'ArrayRef[Foo]',
+    default => sub { [] },
+);
+
+sub first_match {
+    my $self = shift;
+    Foo->first_match($self->foos, @_);
+}
+
+sub any_match {
+    my $self = shift;
+    Foo->any_match($self->foos, @_);
+}
+
+sub all_match {
+    my $self = shift;
+    Foo->all_match($self->foos, @_);
+}
+
+sub grep_matches {
+    my $self = shift;
+    Foo->grep_matches($self->foos, @_);
+}
+
+package main;
+my $foos = FooCollection->new;
+my $foo1 = Foo->new(a => 'foo',  b => 'bar', c => 'baz');
+my $foo2 = Foo->new(a => '',     b => '3',   c => 'foobar');
+my $foo3 = Foo->new(a => 'blah', b => 'abc', c => 'foo');
+push @{ $foos->foos }, $foo1;
+push @{ $foos->foos }, $foo2;
+push @{ $foos->foos }, $foo3;
+is($foos->first_match(sub { length(shift) < 3 }), $foo2,
+   'default parameter is passed correctly');
-- 
cgit v1.2.3-54-g00ecf