t/100_bugs/026_create_anon_recursion.t

   1 use strict;
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5 use warnings;
   6
   7 use Test::More;
   8 use Test::Exception;
   9
  10 use Mouse::Meta::Class;
  11
  12 $SIG{__WARN__} = sub { die if shift =~ /recurs/ };
  13
  14 TODO:
  15 {
  16     local $TODO
  17         = 'Loading Mouse::Meta::Class without loading Mouse.pm causes weird problems';
  18
  19     my $meta;
  20     lives_ok {
  21         $meta = Mouse::Meta::Class->create_anon_class(
  22             superclasses => [ 'Mouse::Object', ],
  23         );
  24     }
  25     'Class is created successfully';
  26 }
  27
  28 done_testing;