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