basic implementation of preserving attrs/methods across reinitialization

[gitmo/Class-MOP.git] / t / 049_metaclass_reinitialize.t

diff --git a/t/049_metaclass_reinitialize.t b/t/049_metaclass_reinitialize.t
index a9c0e26..423a49c 100644 (file)
--- a/t/049_metaclass_reinitialize.t
+++ b/t/049_metaclass_reinitialize.t
@@ -8,6 +8,7 @@ use Test::Exception;
     package Foo;
     use metaclass;
     sub foo {}
+    Foo->meta->add_attribute('bar');
 }
 
 sub check_meta_sanity {
@@ -15,6 +16,7 @@ sub check_meta_sanity {
     isa_ok($meta, 'Class::MOP::Class');
     is($meta->name, 'Foo');
     ok($meta->has_method('foo'));
+    ok($meta->has_attribute('bar'));
 }
 
 can_ok('Foo', 'meta');