whole bunch of stuff

[gitmo/Class-MOP.git] / t / 006_new_and_clone_metaclasses.t

diff --git a/t/006_new_and_clone_metaclasses.t b/t/006_new_and_clone_metaclasses.t
index d36da5f..68916b0 100644 (file)
--- a/t/006_new_and_clone_metaclasses.t
+++ b/t/006_new_and_clone_metaclasses.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 29;
+use Test::More tests => 32;
 use Test::Exception;
 
 BEGIN {
@@ -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();
@@ -90,6 +92,11 @@ my $bar = $bar_meta->new_object();
 isa_ok($bar, 'Bar');
 isa_ok($bar, 'Foo');
 
+my $baz = $baz_meta->new_object();
+isa_ok($baz, 'Baz');
+isa_ok($baz, 'Bar');
+isa_ok($baz, 'Foo');
+
 my $cloned_foo = $foo_meta->clone_object($foo);
 isa_ok($cloned_foo, 'Foo');