Commit | Line | Data |
87259f30 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
e33d8fa8 |
6 | use Test::More tests => 1; |
87259f30 |
7 | use Test::Exception; |
8 | use Moose::Meta::Class; |
9 | use Moose::Util; |
10 | |
11 | use lib 't/lib', 'lib'; |
12 | |
87259f30 |
13 | |
1a875270 |
14 | # Note that this test passes if we inline the role definitions in this |
15 | # file, and it passes now that Class::MOP::load_class was changed to |
16 | # do eval "require $module" rather than loading the module by |
17 | # path. Perl is a strange beast. |
e33d8fa8 |
18 | lives_ok( |
19 | sub { |
20 | my $builder_meta = Moose::Meta::Class->create( |
21 | 'YATTA' => ( |
22 | superclass => 'Moose::Meta::Class', |
23 | roles => [qw( Role::Interface Role::Child )], |
24 | ) |
25 | ); |
26 | }, |
27 | 'Create a new class with several roles' |
87259f30 |
28 | ); |
29 | |