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

#!/usr/bin/perl -w

use strict;
use Test::More tests => 1;
use Test::Exception;
use Moose::Meta::Class;

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

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