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