diff options
| author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 16:10:25 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 17:00:15 +0000 |
| commit | 14cff046956f10a7d57017bbf8e8aa3450c45b04 (patch) | |
| tree | 19aaa671c766eacfc3b6bca8c8befdcc566cdd30 /t | |
| parent | fix tags&ranges ser bug (w/ test) (diff) | |
| download | data-multivalued-14cff046956f10a7d57017bbf8e8aa3450c45b04.tar.gz data-multivalued-14cff046956f10a7d57017bbf8e8aa3450c45b04.tar.bz2 data-multivalued-14cff046956f10a7d57017bbf8e8aa3450c45b04.zip | |
allow (and test) custom-named multi accessors
Diffstat (limited to 't')
| -rw-r--r-- | t/moose-tagged.t | 8 |
1 files changed, 5 insertions, 3 deletions
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'); }; |