diff options
Diffstat (limited to 't/003-methods.t')
-rw-r--r-- | t/003-methods.t | 26 |
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'); |