t/100_bugs/026_create_anon_recursion.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6
   7 use Moose::Meta::Class;
   8
   9 $SIG{__WARN__} = sub { die if shift =~ /recurs/ };
  10
  11 TODO:
  12 {
  13     local $TODO
  14         = 'Loading Moose::Meta::Class without loading Moose.pm causes weird problems';
  15
  16     my $meta;
  17     lives_ok {
  18         $meta = Moose::Meta::Class->create_anon_class(
  19             superclasses => [ 'Moose::Object', ],
  20         );
  21     }
  22     'Class is created successfully';
  23 }
  24
  25 done_testing;