X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F002_role.t;h=2504039188f773b01dcb25187b233776d6ccfd97;hb=ca8e67d622c1a14bee4933ad64b1e465c5d63766;hp=577c2effb2be6b63c53073bac334c4711dc870c8;hpb=6cfa1e5e70616fb102915489c02d8347ffa912fb;p=gitmo%2FMouse.git diff --git a/t/030_roles/002_role.t b/t/030_roles/002_role.t index 577c2ef..2504039 100755 --- a/t/030_roles/002_role.t +++ b/t/030_roles/002_role.t @@ -6,6 +6,11 @@ use warnings; use Test::More tests => 40; use Test::Exception; +use lib 't/lib'; +use Test::Mouse; + +use MooseCompat; + =pod NOTE: @@ -82,28 +87,32 @@ is_deeply( ok($foo_role->has_attribute('bar'), '... FooRole does have the bar attribute'); -{ -local $TODO = 'definition_context is not yet implemented'; my $bar_attr = $foo_role->get_attribute('bar'); is($bar_attr->{is}, 'rw', 'bar attribute is rw'); is($bar_attr->{isa}, 'Foo', 'bar attribute isa Foo'); -is(ref($bar_attr->{definition_context}), 'HASH', - 'bar\'s definition context is a hash'); -is($bar_attr->{definition_context}->{package}, 'FooRole', - 'bar was defined in FooRole'); +{ + local $TODO = 'definition_context is not yet implemented'; + is(ref($bar_attr->{definition_context}), 'HASH', + 'bar\'s definition context is a hash'); + is($bar_attr->{definition_context}->{package}, 'FooRole', + 'bar was defined in FooRole'); +} ok($foo_role->has_attribute('baz'), '... FooRole does have the baz attribute'); my $baz_attr = $foo_role->get_attribute('baz'); is($baz_attr->{is}, 'ro', 'baz attribute is ro'); -is(ref($baz_attr->{definition_context}), 'HASH', - 'bar\'s definition context is a hash'); -is($baz_attr->{definition_context}->{package}, 'FooRole', - 'baz was defined in FooRole'); -} # end of TODO (definition_context) + +{ + local $TODO = 'definition_context is not yet implemented'; + is(ref($baz_attr->{definition_context}), 'HASH', + 'bar\'s definition context is a hash'); + is($baz_attr->{definition_context}->{package}, 'FooRole', + 'baz was defined in FooRole'); +} # method modifiers