From: Dave Rolsky <autarch@urth.org>
Date: Fri, 22 May 2009 14:05:56 +0000 (-0500)
Subject: Add an additional test to make sure that the original meta method
X-Git-Tag: 0.80~72
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78b26cc6bd3ade60a2665bb0a25046c158eb7296;p=gitmo%2FMoose.git

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
--- 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,