diff options
| author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 16:42:24 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 16:42:24 +0000 |
| commit | 52718655291ea26545395f77a325afd7ac841cb4 (patch) | |
| tree | 18d3fa9714038dcc000e77ed0c7280657e1fabd9 /t/moose-tagged.t | |
| parent | Build results of 831f847 (on master) (diff) | |
| parent | allow (and test) custom-named multi accessors (diff) | |
| download | data-multivalued-52718655291ea26545395f77a325afd7ac841cb4.tar.gz data-multivalued-52718655291ea26545395f77a325afd7ac841cb4.tar.bz2 data-multivalued-52718655291ea26545395f77a325afd7ac841cb4.zip | |
Build results of bb2712c (on master)
Diffstat (limited to 't/moose-tagged.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'); }; |