7 use File::Spec::Functions;
9 use Test::More tests => 10;
17 use lib catdir($FindBin::Bin, 'lib');
26 __PACKAGE__->meta->make_immutable;
34 __PACKAGE__->meta->make_immutable;
40 use metaclass 'MyMetaClass';
42 sub mymetaclass_attributes{
43 shift->meta->mymetaclass_attributes;
47 Baz->meta->superclasses('Bar');
48 } '... we survive the metaclass incompatability test';
53 is(Foo->meta->blessed, Bar->meta->blessed, 'Foo and Bar immutable metaclasses match');
54 is($meta->blessed, 'MyMetaClass', 'Baz->meta blessed as MyMetaClass');
55 ok(Baz->can('mymetaclass_attributes'), '... Baz can do method before immutable');
56 ok($meta->can('mymetaclass_attributes'), '... meta can do method before immutable');
57 $meta->make_immutable;
58 isa_ok($meta, 'MyMetaClass', 'Baz->meta');
59 ok(Baz->can('mymetaclass_attributes'), '... Baz can do method after imutable');
60 ok($meta->can('mymetaclass_attributes'), '... meta can do method after immutable');
61 isnt(Baz->meta->blessed, Bar->meta->blessed, 'Baz and Bar immutable metaclasses are different');