From 14cff046956f10a7d57017bbf8e8aa3450c45b04 Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Mon, 14 Nov 2011 16:10:25 +0000 Subject: allow (and test) custom-named multi accessors --- t/moose-tagged.t | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/moose-tagged.t b/t/moose-tagged.t index 6e1ac7a..2493aff 100644 --- a/t/moose-tagged.t +++ b/t/moose-tagged.t @@ -13,6 +13,8 @@ has stuff => ( default => 3, predicate => 'has_stuff', clearer => 'clear_stuff', + multi_accessor => 'stuff_tagged', + multi_predicate => 'has_stuff_tagged', ); has other => ( @@ -52,15 +54,15 @@ subtest 'with tags' => sub { my $opts = {tag=>'one'}; ok($obj->has_stuff,'has stuff'); - ok(!$obj->has_stuff_multi($opts),'not has stuff tagged'); + ok(!$obj->has_stuff_tagged($opts),'not has stuff tagged'); ok(!$obj->has_other,'not has other'); ok(!$obj->has_other_multi($opts),'not has other tagged'); - $obj->stuff_multi($opts,7); + $obj->stuff_tagged($opts,7); $obj->other_multi($opts,'foo'); is($obj->stuff,3,'default'); - is($obj->stuff_multi($opts),7,'stuff tagged'); + is($obj->stuff_tagged($opts),7,'stuff tagged'); is($obj->other_multi($opts),'foo','other tagged'); }; -- cgit v1.2.3