t/bugs/create_anon_recursion.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Fatal;
   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     is( exception {
  18         $meta = Moose::Meta::Class->create_anon_class(
  19             superclasses => [ 'Moose::Object', ],
  20         );
  21     }, undef, 'Class is created successfully' );
  22 }
  23
  24 done_testing;