Commit | Line | Data |
---|---|---|
87259f30 | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
a28e50e4 | 6 | use Test::More; |
53a4d826 | 7 | use Test::Exception; |
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. | |
53a4d826 | 16 | lives_ok( |
e33d8fa8 | 17 | sub { |
18 | my $builder_meta = Moose::Meta::Class->create( | |
19 | 'YATTA' => ( | |
20 | superclass => 'Moose::Meta::Class', | |
21 | roles => [qw( Role::Interface Role::Child )], | |
22 | ) | |
23 | ); | |
53a4d826 | 24 | }, |
e33d8fa8 | 25 | 'Create a new class with several roles' |
87259f30 | 26 | ); |
27 | ||
a28e50e4 | 28 | done_testing; |