getting ready for a 0.07 release

[gitmo/Class-MOP.git] / t / 030_method.t

diff --git a/t/030_method.t b/t/030_method.t
index de48851..c43cd42 100644 (file)
--- a/t/030_method.t
+++ b/t/030_method.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 use Test::Exception;
 
 BEGIN {
@@ -11,6 +11,11 @@ BEGIN {
     use_ok('Class::MOP::Method');
 }
 
+{
+    my $method = Class::MOP::Method->wrap(sub { 1 });
+    is($method->meta, Class::MOP::Method->meta, '... instance and class both lead to the same meta');
+}
+
 my $meta = Class::MOP::Method->meta;
 isa_ok($meta, 'Class::MOP::Class');