t/cmop/anon_class_removal.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5
   6 use Class::MOP;
   7
   8 {
   9     my $class;
  10     {
  11         my $meta = Class::MOP::Class->create_anon_class(
  12             methods => {
  13                 foo => sub { 'FOO' },
  14             },
  15         );
  16
  17         $class = $meta->name;
  18         can_ok($class, 'foo');
  19         is($class->foo, 'FOO');
  20     }
  21     ok(!$class->can('foo'));
  22 }
  23
  24 {
  25     my $class;
  26     {
  27         my $meta = Class::MOP::Class->create_anon_class(
  28             methods => {
  29                 foo => sub { 'FOO' },
  30             },
  31         );
  32
  33         $class = $meta->name;
  34         can_ok($class, 'foo');
  35         is($class->foo, 'FOO');
  36         Class::MOP::remove_metaclass_by_name($class);
  37     }
  38     ok(!$class->can('foo'));
  39 }
  40
  41 done_testing;