From: Dave Rolsky Date: Fri, 20 Feb 2009 20:03:21 +0000 (+0000) Subject: Tweak code to be more consistent X-Git-Tag: 0.77_01~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c975dc73eafd822cdc655dc62f48e28fa187778;p=gitmo%2FClass-MOP.git Tweak code to be more consistent --- 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' );