X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F041_role.t;h=875db47ff7091c9fc8bf6d8c5de527cfd52c32c0;hb=03aac1fa4eb64aca574e5ec3b8f55c4f0327399c;hp=275833286569063f945bc1a8c8aa8d8333aa118e;hpb=0558683c97fd7290b1ec5c62afe1993df80cb7ec;p=gitmo%2FMoose.git

diff --git a/t/041_role.t b/t/041_role.t
index 2758332..875db47 100644
--- a/t/041_role.t
+++ b/t/041_role.t
@@ -57,12 +57,12 @@ is($foo_role->version, '0.01', '... got the right version of FooRole');
 # methods ...
 
 ok($foo_role->has_method('foo'), '... FooRole has the foo method');
-is($foo_role->get_method('foo'), \&FooRole::foo, '... FooRole got the foo method');
+is($foo_role->get_method('foo')->body, \&FooRole::foo, '... FooRole got the foo method');
 
 isa_ok($foo_role->get_method('foo'), 'Moose::Meta::Role::Method');
 
 ok($foo_role->has_method('boo'), '... FooRole has the boo method');
-is($foo_role->get_method('boo'), \&FooRole::boo, '... FooRole got the boo method');
+is($foo_role->get_method('boo')->body, \&FooRole::boo, '... FooRole got the boo method');
 
 isa_ok($foo_role->get_method('boo'), 'Moose::Meta::Role::Method');