2 # This is based on Class-MOP/t/312_anon_class_leak.t
\r
8 eval "use Test::LeakTrace 0.10;";
\r
9 plan skip_all => "Test::LeakTrace 0.10 is required for this test" if $@;
\r
19 sub my_role_method{ }
\r
22 # 5.10.0 has a bug on weaken($hash_ref) which leaks an AV.
\r
23 my $expected = ( $] == 5.010_000 ? 1 : 0 );
\r
26 Mouse::Meta::Class->create_anon_class();
\r
27 } '<=', $expected, 'create_anon_class()';
\r
30 Mouse::Meta::Class->create_anon_class(superclasses => ['Mouse::Meta::Class']);
\r
31 } '<=', $expected, 'create_anon_class() with superclasses';
\r
34 Mouse::Meta::Class->create_anon_class(attributes => [
\r
35 Mouse::Meta::Attribute->new('foo', is => 'bare'),
\r
37 } '<=', $expected, 'create_anon_class() with attributes';
\r
40 Mouse::Meta::Class->create_anon_class(roles => [qw(MyRole)]);
\r
41 } '<=', $expected, 'create_anon_class() with roles';
\r
45 Mouse::Meta::Role->create_anon_role();
\r
46 } '<=', $expected, 'create_anon_role()';
\r
49 Mouse::Meta::Role->create_anon_role(roles => [qw(MyRole)]);
\r
50 } '<=', $expected, 'create_anon_role() with roles';
\r