X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F003_methods.t;h=5088f50a0d0a20d4d0d149926ebf9ffb78fcda95;hb=1550e0820d345fd483382e2b912ba683da3bdc1d;hp=b3dffb8548bf7445e9a01ef8732a70ce792d2a5f;hpb=2e13df84f67250886afddc121d60d395156b65d2;p=gitmo%2FClass-MOP.git diff --git a/t/003_methods.t b/t/003_methods.t index b3dffb8..5088f50 100644 --- a/t/003_methods.t +++ b/t/003_methods.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 66; +use Test::More tests => 67; use Test::Exception; use Scalar::Util qw/reftype/; @@ -181,6 +181,7 @@ is_deeply( is($Foo->remove_method('foo')->body, $foo, '... removed the foo method'); ok(!$Foo->has_method('foo'), '... !Foo->has_method(foo) we just removed it'); +ok(!$Foo->get_method_map->{foo}, 'foo is not in the method map'); dies_ok { Foo->foo } '... cannot call Foo->foo because it is not there'; is_deeply(