Commit | Line | Data |
d2470ccf |
1 | use strict; |
39bb3aa5 |
2 | use warnings; |
3 | |
d2470ccf |
4 | use Test::More tests => 1; |
5 | use Test::Exception; |
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; |
17 | lives_ok { |
18 | $meta = Moose::Meta::Class->create_anon_class( |
19 | superclasses => [ 'Moose::Object', ], |
20 | ); |
21 | } |
22 | 'Class is created successfully'; |
23 | } |