Add an additional test to make sure that the original meta method

object is being preserved.

diff --git a/t/100_bugs/024_anon_method_metaclass.t b/t/100_bugs/024_anon_method_metaclass.t
index f895da5..0df4a2e 100644 (file)
--- a/t/100_bugs/024_anon_method_metaclass.t
+++ b/t/100_bugs/024_anon_method_metaclass.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 9;
 
 {
     package Ball;
@@ -36,6 +36,9 @@ for ( 1, 2 ) {
     is( Ball->meta->get_method('bounce')->meta->name, $method_class,
         "method's package still exists" );
 
+    is( Ball->meta->get_method('bounce'), $method_object,
+        'original method object is preserved' );
+
     local $TODO = "method seems to be reinitialized" if !$method_meta;
 
     is( Ball->meta->get_method('bounce')->meta . '', $original_meta,