more tests

1 files changed, 26 insertions, 0 deletions

diff --git a/t/003-methods.t b/t/003-methods.t
new file mode 100644
index 0000000..c4c0d5f
--- /dev/null
+++ b/t/003-methods.t
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+package Foo;
+use Moose;
+with 'MooseX::Role::Matcher';
+
+has [qw/a b c/] => (
+    is       => 'ro',
+    isa      => 'Str',
+    required => 1,
+);
+
+sub concat {
+    my $self = shift;
+    return $self->a . $self->b . $self->c;
+}
+
+package main;
+my $foo = Foo->new(a => 'foo', b => 'bar', c => 'baz');
+ok($foo->match(concat => 'foobarbaz'),
+   'match handles methods as well as attributes');
+ok($foo->match(a => qr/o/, concat => sub { length(shift) > 6 }),
+   'match handles methods as well as attributes');