t/312_anon_class_leak.t

   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;