6 use Test::More tests => 8;
11 use_ok('Moose::Meta::Role');
16 our $VERSION = '0.01';
17 sub foo { 'FooRole::foo' }
26 my $foo_role = Moose::Meta::Role->initialize('FooRole');
28 lives_ok{ $meta->make_immutable } "Foo is imutable";
29 dies_ok{ $meta->add_role($foo_role) } "Add Role is locked";
30 lives_ok{ $meta->make_mutable } "Foo is mutable";
31 lives_ok{ $meta->add_role($foo_role) } "Add Role is unlocked";
52 lives_ok { Bar->meta->make_immutable }
53 'Immutable meta with single BUILD';
55 lives_ok { Baz->meta->make_immutable }
56 'Immutable meta with multiple BUILDs';
60 Nothing here yet, but soon :)