t/100_bugs/026_create_anon_recursion.t

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