Commit | Line | Data |
87259f30 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
a28e50e4 |
6 | use Test::More; |
b10dde3a |
7 | use Test::Fatal; |
87259f30 |
8 | use Moose::Meta::Class; |
9 | use Moose::Util; |
10 | |
11 | use lib 't/lib', 'lib'; |
12 | |
87259f30 |
13 | |
f24d409f |
14 | # Note that this test passed (pre svn #5543) if we inlined the role |
15 | # definitions in this file, as it was very timing sensitive. |
b10dde3a |
16 | is( exception { |
8b776b2d |
17 | my $builder_meta = Moose::Meta::Class->create( |
18 | 'YATTA' => ( |
19 | superclass => 'Moose::Meta::Class', |
20 | roles => [qw( Role::Interface Role::Child )], |
21 | ) |
22 | ); |
b10dde3a |
23 | }, undef, 'Create a new class with several roles' ); |
87259f30 |
24 | |
a28e50e4 |
25 | done_testing; |