2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
10 $TODO = q{Mouse is not yet completed};
21 use Mouse qw(extends with);
22 extends 'Mouse::Meta::Class';
25 sub foo { 'i am foo' }
30 use metaclass ('MyMetaclass');
34 my $mc = MyMetaclass->initialize('MyClass');
35 isa_ok($mc, 'MyMetaclass');
37 ok($mc->meta->does_role('MyRole'), '... the metaclass does the role');
39 is(MyClass->meta, $mc, '... these metas are the same thing');
40 is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
43 ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
44 is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
45 ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
46 is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
49 MyClass->meta->make_immutable;
50 } '... make MyClass immutable okay';
52 is(MyClass->meta, $mc, '... these metas are still the same thing');
53 is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
55 ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
56 is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
57 ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
58 is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
61 MyClass->meta->make_mutable;
62 } '... make MyClass mutable okay';
64 is(MyClass->meta, $mc, '... these metas are still the same thing');
65 is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
67 ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
68 is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
69 ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
70 is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
73 MyMetaclass->meta->make_immutable;
74 } '... make MyMetaclass immutable okay';
76 is(MyClass->meta, $mc, '... these metas are still the same thing');
77 is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
79 ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
80 is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
81 ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
82 is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
85 MyClass->meta->make_immutable;
86 } '... make MyClass immutable (again) okay';
88 is(MyClass->meta, $mc, '... these metas are still the same thing');
89 is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
91 ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
92 is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
93 ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
94 is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );