trAvis - MANAGER

Edit File: anon_class_leak.t

use strict; use warnings; use Class::MOP; use Test::More; use Test::Requires { 'Test::LeakTrace' => '0.01', # skip all if not installed }; # 5.10.0 has a bug on weaken($hash_ref) which leaks an AV. my $expected = ( $] == 5.010_000 ? 1 : 0 ); leaks_cmp_ok { Class::MOP::Class->create_anon_class(); } '<=', $expected, 'create_anon_class()'; leaks_cmp_ok { Class::MOP::Class->create_anon_class( superclasses => [qw(Exporter)] ); } '<=', $expected, 'create_anon_class(superclass => [...])'; done_testing;