t/100_bugs/026_create_anon_seep_recursion.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Test::More tests => 1;
   5 use Test::Exception;
   6 use Moose::Meta::Class;
   7
   8 $SIG{__WARN__} = sub { die if shift =~ /recurs/ };
   9
  10 my $meta;
  11 lives_ok {
  12   $meta = Moose::Meta::Class->create_anon_class(
  13     superclasses => [ 'Moose::Object', ],
  14   );
  15 } 'Class is created successfully';