Commit | Line | Data |
38bf2a25 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Class::MOP; |
5 | use Test::More; |
6 | |
7 | use Test::Requires { |
8 | 'Test::LeakTrace' => '0.01', # skip all if not installed |
9 | }; |
10 | |
11 | # 5.10.0 has a bug on weaken($hash_ref) which leaks an AV. |
12 | my $expected = ( $] == 5.010_000 ? 1 : 0 ); |
13 | |
14 | leaks_cmp_ok { |
15 | Class::MOP::Class->create_anon_class(); |
16 | } |
17 | '<=', $expected, 'create_anon_class()'; |
18 | |
19 | leaks_cmp_ok { |
20 | Class::MOP::Class->create_anon_class( superclasses => [qw(Exporter)] ); |
21 | } |
22 | '<=', $expected, 'create_anon_class(superclass => [...])'; |
23 | |
24 | done_testing; |