Add a test for a problem that the Moose tests were running into when

using a pure Perl CMOP

diff --git a/t/084_get_method_map.t b/t/084_get_method_map.t
new file mode 100644 (file)
index 0000000..6784548
--- /dev/null
+++ b/t/084_get_method_map.t
@@ -0,0 +1,48 @@
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+
+
+{
+    package Foo;
+
+    use metaclass;
+
+    sub foo { }
+}
+
+{
+    my $map = Foo->meta->get_method_map;
+
+    is( scalar keys %{$map}, 2,
+        'method map for Foo has two key' );
+    ok( $map->{foo}, '... has a foo method in the map' );
+    ok( $map->{meta}, '... has a meta method in the map' );
+}
+
+
+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' );
+    ok( $map->{bar}, '... has a bar method in the map' );
+    ok( $map->{meta}, '... has a meta method in the map' );
+}
+
+# Tests a bug where after a metaclass object was recreated, methods
+# added via add_method were not showing up in the map, but only with
+# the non-XS version of the code.
+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' );
+    ok( $map->{bar}, '... has a bar method in the map' );
+    ok( $map->{meta}, '... has a meta method in the map' );
+}