X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F084_get_method_map.t;fp=t%2F084_get_method_map.t;h=7f36351fa6c0d57c226cdcd5d03c31d9c24c4440;hb=8c975dc73eafd822cdc655dc62f48e28fa187778;hp=6784548fda8b220582cabc5172c672e2285254d7;hpb=481550a7b2017b399cec3c54ebfeed83bd41cb80;p=gitmo%2FClass-MOP.git diff --git a/t/084_get_method_map.t b/t/084_get_method_map.t index 6784548..7f36351 100644 --- a/t/084_get_method_map.t +++ b/t/084_get_method_map.t @@ -26,6 +26,7 @@ Foo->meta->add_method( bar => sub { } ); { my $map = Foo->meta->get_method_map; + is( scalar keys %{$map}, 3, 'method map for Foo has three keys' ); ok( $map->{foo}, '... has a foo method in the map' ); @@ -40,6 +41,7 @@ Class::MOP::remove_metaclass_by_name('Foo'); { my $map = Foo->meta->get_method_map; + is( scalar keys %{$map}, 3, 'method map for Foo has three keys' ); ok( $map->{foo}, '... has a foo method in the map' );