-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More tests => 9;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
use Class::MOP;
=pod
-Test that a default set up will cause metaclasses to inherit
+Test that a default set up will cause metaclasses to inherit
the same metaclass type, but produce different metaclasses.
=cut
{
package Foo;
use metaclass;
-
+
package Bar;
use base 'Foo';
-
+
package Baz;
use base 'Bar';
}
isnt($baz_meta, $bar_meta, '... Baz->meta != Bar->meta');
isnt($baz_meta, $foo_meta, '... Baz->meta != Foo->meta');
+done_testing;