Commit | Line | Data |
67199842 |
1 | #!/usr/bin/perl |
fde8e43f |
2 | # This is automatically generated by author/import-moose-test.pl. |
3 | # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! |
4 | use t::lib::MooseCompat; |
67199842 |
5 | |
6 | use strict; |
7 | use warnings; |
8 | |
fde8e43f |
9 | use Test::More; |
67199842 |
10 | use Test::Exception; |
11 | use Mouse::Meta::Class; |
12 | use Mouse::Util; |
13 | |
14 | use lib 't/lib', 'lib'; |
15 | |
16 | |
17 | # Note that this test passed (pre svn #5543) if we inlined the role |
18 | # definitions in this file, as it was very timing sensitive. |
19 | lives_ok( |
20 | sub { |
21 | my $builder_meta = Mouse::Meta::Class->create( |
22 | 'YATTA' => ( |
23 | superclass => 'Mouse::Meta::Class', |
24 | roles => [qw( Role::Interface Role::Child )], |
25 | ) |
26 | ); |
27 | }, |
28 | 'Create a new class with several roles' |
29 | ); |
30 | |
fde8e43f |
31 | done_testing; |