changes and the new test
[gitmo/Class-MOP.git] / t / 006_new_and_clone_metaclasses.t
index d36da5f..3646cf4 100644 (file)
@@ -81,6 +81,8 @@ isa_ok($baz_meta, 'MyMetaClass');
 is($my_meta->new_object(':package' => 'Baz'), $baz_meta, '... got the right Baz->meta singleton');
 is($my_meta->clone_object($baz_meta), $baz_meta, '... cloning got the right Baz->meta singleton');
 
+$baz_meta->superclasses('Bar');
+
 # now create a regular objects for real
 
 my $foo = $foo_meta->new_object();