X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F000_recipes%2Fmoose_cookbook_roles_recipe1.t;fp=t%2F000_recipes%2Fmoose_cookbook_roles_recipe1.t;h=16f67755c987654fa773765453008d708d825ad6;hb=4dd75d5701a927ee1e6aa1b2d3c765ae0545b8e8;hp=0a6a3b43d2abd26d931905fc5d57817ff8b806c0;hpb=9c72aa8cc2c62557e1018598c4eba71c66024a80;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..16f6775 100644
--- a/t/000_recipes/moose_cookbook_roles_recipe1.t
+++ b/t/000_recipes/moose_cookbook_roles_recipe1.t
@@ -87,8 +87,8 @@ 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" );
+ok( eval{ $hundred->DOES("US::Currency") }, "UNIVERSAL::DOES for class" );
+ok( eval{ $hundred->DOES("Comparable") },   "UNIVERSAL::DOES for role" );
 }
 can_ok( $hundred, 'amount' );
 is( $hundred->amount, 100, '... got the right amount' );