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 Mouse::Meta::Class;
   8
   9 $SIG{__WARN__} = sub { die if shift =~ /recurs/ };
  10
  11 TODO:
  12 {
  13 #    local $TODO
  14 #        = 'Loading Mouse::Meta::Class without loading Mouse.pm causes weird problems';
  15
  16     my $meta;
  17     lives_ok {
  18         $meta = Mouse::Meta::Class->create_anon_class(
  19             superclasses => [ 'Mouse::Object', ],
  20         );
  21     }
  22     'Class is created successfully';
  23 }