projects
/
gitmo/Class-MOP.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
481550a
)
Tweak code to be more consistent
Dave Rolsky [Fri, 20 Feb 2009 20:03:21 +0000 (20:03 +0000)]
t/084_get_method_map.t
patch
|
blob
|
blame
|
history
diff --git
a/t/084_get_method_map.t
b/t/084_get_method_map.t
index
6784548
..
7f36351
100644
(file)
--- 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' );