diff options
Diffstat (limited to 'Data-MultiValued/t/moose-tagged.t')
| -rw-r--r-- | Data-MultiValued/t/moose-tagged.t | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Data-MultiValued/t/moose-tagged.t b/Data-MultiValued/t/moose-tagged.t index 86fb8b9..6e1ac7a 100644 --- a/Data-MultiValued/t/moose-tagged.t +++ b/Data-MultiValued/t/moose-tagged.t @@ -4,12 +4,12 @@ use warnings; package Foo;{ use Moose; -use Data::MultiValued::AttributeTrait::Tagged; +use Data::MultiValued::AttributeTrait::Tags; has stuff => ( is => 'rw', isa => 'Int', - traits => ['MultiValued::Tagged'], + traits => ['MultiValued::Tags'], default => 3, predicate => 'has_stuff', clearer => 'clear_stuff', @@ -18,7 +18,7 @@ has stuff => ( has other => ( is => 'rw', isa => 'Str', - traits => ['MultiValued::Tagged'], + traits => ['MultiValued::Tags'], predicate => 'has_other', clearer => 'clear_other', ); @@ -52,16 +52,16 @@ subtest 'with tags' => sub { my $opts = {tag=>'one'}; ok($obj->has_stuff,'has stuff'); - ok(!$obj->has_stuff_tagged($opts),'not has stuff tagged'); + ok(!$obj->has_stuff_multi($opts),'not has stuff tagged'); ok(!$obj->has_other,'not has other'); - ok(!$obj->has_other_tagged($opts),'not has other tagged'); + ok(!$obj->has_other_multi($opts),'not has other tagged'); - $obj->stuff_tagged($opts,7); - $obj->other_tagged($opts,'foo'); + $obj->stuff_multi($opts,7); + $obj->other_multi($opts,'foo'); is($obj->stuff,3,'default'); - is($obj->stuff_tagged($opts),7,'stuff tagged'); - is($obj->other_tagged($opts),'foo','other tagged'); + is($obj->stuff_multi($opts),7,'stuff tagged'); + is($obj->other_multi($opts),'foo','other tagged'); }; done_testing(); |