t/bugs/create_anon_recursion.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Fatal;
   6
   7 BEGIN {
   8     plan skip_all => "preloading things makes this test meaningless"
   9         if exists $INC{'Moose.pm'};
  10 }
  11
  12 use Moose::Meta::Class;
  13
  14 $SIG{__WARN__} = sub { die if shift =~ /recurs/ };
  15
  16 TODO:
  17 {
  18     local $TODO
  19         = 'Loading Moose::Meta::Class without loading Moose.pm causes weird problems';
  20
  21     my $meta;
  22     is( exception {
  23         $meta = Moose::Meta::Class->create_anon_class(
  24             superclasses => [ 'Moose::Object', ],
  25         );
  26     }, undef, 'Class is created successfully' );
  27 }
  28
  29 done_testing;