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;
11 use Mouse::Meta::Class;
19 sub foo_role_applied { 1 }
23 sub bar_role_applied { 1 }
26 # try without caching first
29 my $class_and_foo_1 = Mouse::Meta::Class->create_anon_class(
30 superclasses => ['Class'],
34 my $class_and_foo_2 = Mouse::Meta::Class->create_anon_class(
35 superclasses => ['Class'],
39 isnt $class_and_foo_1->name, $class_and_foo_2->name,
40 'creating the same class twice without caching results in 2 classes';
42 map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
45 # now try with caching
48 my $class_and_foo_1 = Mouse::Meta::Class->create_anon_class(
49 superclasses => ['Class'],
54 my $class_and_foo_2 = Mouse::Meta::Class->create_anon_class(
55 superclasses => ['Class'],
60 is $class_and_foo_1->name, $class_and_foo_2->name,
61 'with cache, the same class is the same class';
63 map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
65 my $class_and_bar = Mouse::Meta::Class->create_anon_class(
66 superclasses => ['Class'],
71 isnt $class_and_foo_1->name, $class_and_bar,
72 'class_and_foo and class_and_bar are different';
74 ok $class_and_bar->name->bar_role_applied;
77 # This tests that a cached metaclass can be reinitialized and still retain its
80 my $name = Mouse::Meta::Class->create_anon_class(
81 superclasses => ['Class'],
85 $name->meta->reinitialize( $name );
87 can_ok( $name, 'meta' );