Commit | Line | Data |
7eaef7ad |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More tests => 5; |
7 | use Test::Exception; |
8 | |
9 | BEGIN { |
10 | use_ok('Moose'); |
11 | } |
12 | |
13 | |
14 | { |
15 | package Foo::Meta; |
16 | use strict; |
17 | use warnings; |
18 | |
19 | use base 'Moose::Meta::Class'; |
20 | |
21 | package Foo; |
22 | use strict; |
23 | use warnings; |
24 | use metaclass 'Foo::Meta'; |
25 | ::use_ok('Moose'); |
26 | } |
27 | |
28 | isa_ok(Foo->meta, 'Foo::Meta'); |
29 | |
30 | { |
31 | package Bar::Meta; |
32 | use strict; |
33 | use warnings; |
34 | |
35 | use base 'Class::MOP::Class'; |
36 | |
37 | package Bar; |
38 | use strict; |
39 | use warnings; |
40 | use metaclass 'Bar::Meta'; |
41 | eval 'use Moose;'; |
42 | ::ok($@, '... could not load moose without correct metaclass'); |
43 | ::like($@, qr/^Whoops\, not møøsey enough/, '... got the right error too'); |
44 | } |