[gitmo/Mouse.git] / t / 100_bugs / 026_create_anon_recursion.t

use strict;
use warnings;

use Test::More tests => 1;
use Test::Exception;

use Mouse::Meta::Class;

$SIG{__WARN__} = sub { die if shift =~ /recurs/ };

TODO:
{
#    local $TODO
#        = 'Loading Mouse::Meta::Class without loading Mouse.pm causes weird problems';

    my $meta;
    lives_ok {
        $meta = Mouse::Meta::Class->create_anon_class(
            superclasses => [ 'Mouse::Object', ],
        );
    }
    'Class is created successfully';
}
Commit	Line	Data
4c98ebb0	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	}