X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F000_recipes%2Fmoose_cookbook_roles_recipe1.t;h=c11d186ce430e9fe0b911ddb3eb1bb272c94e1ac;hb=d8ac424a86a0d9703f3e0502c8935b4851bf29af;hp=0a6a3b43d2abd26d931905fc5d57817ff8b806c0;hpb=f9aca0f35658e5e0657e8ce78b783c0185d59969;p=gitmo%2FMouse.git diff --git a/t/000_recipes/moose_cookbook_roles_recipe1.t b/t/000_recipes/moose_cookbook_roles_recipe1.t index 0a6a3b4..c11d186 100644 --- a/t/000_recipes/moose_cookbook_roles_recipe1.t +++ b/t/000_recipes/moose_cookbook_roles_recipe1.t @@ -85,11 +85,8 @@ ok( US::Currency->does('Printable'), '... US::Currency does Printable' ); my $hundred = US::Currency->new( amount => 100.00 ); isa_ok( $hundred, 'US::Currency' ); -{ -local $TODO = 'UNIVERSAL::DOES is not supported'; ok( $hundred->DOES("US::Currency"), "UNIVERSAL::DOES for class" ); ok( $hundred->DOES("Comparable"), "UNIVERSAL::DOES for role" ); -} can_ok( $hundred, 'amount' ); is( $hundred->amount, 100, '... got the right amount' );