Commit | Line | Data |
---|---|---|
d2470ccf | 1 | use strict; |
39bb3aa5 | 2 | use warnings; |
3 | ||
a28e50e4 | 4 | use Test::More; |
b10dde3a | 5 | use Test::Fatal; |
39bb3aa5 | 6 | |
d2470ccf | 7 | use Moose::Meta::Class; |
8 | ||
9 | $SIG{__WARN__} = sub { die if shift =~ /recurs/ }; | |
10 | ||
b68c3910 | 11 | TODO: |
12 | { | |
13 | local $TODO | |
14 | = 'Loading Moose::Meta::Class without loading Moose.pm causes weird problems'; | |
15 | ||
16 | my $meta; | |
b10dde3a | 17 | is( exception { |
b68c3910 | 18 | $meta = Moose::Meta::Class->create_anon_class( |
19 | superclasses => [ 'Moose::Object', ], | |
20 | ); | |
b10dde3a | 21 | }, undef, 'Class is created successfully' ); |
b68c3910 | 22 | } |
a28e50e4 | 23 | |
24 | done_testing; |