Commit | Line | Data |
61bdd94f |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 10; |
4 | use Test::Exception; |
5 | |
6 | BEGIN { |
7 | use_ok('Moose::Meta::Class'); |
8 | use_ok('Moose'); |
9 | use_ok('Moose::Role'); |
10 | } |
11 | |
12 | { |
13 | package Class; |
14 | use Moose; |
15 | |
16 | package Foo; |
17 | use Moose::Role; |
18 | sub foo_role_applied { 1 } |
19 | |
20 | package Conflicts::With::Foo; |
21 | use Moose::Role; |
22 | sub foo_role_applied { 0 } |
23 | |
24 | package Not::A::Role; |
25 | sub lol_wut { 42 } |
26 | } |
27 | |
28 | my $new_class; |
29 | |
30 | lives_ok { |
31 | $new_class = Moose::Meta::Class->create( |
32 | 'Class::WithFoo', |
33 | superclasses => ['Class'], |
34 | roles => ['Foo'], |
35 | ); |
36 | } 'creating lives'; |
37 | ok $new_class; |
38 | |
39 | my $with_foo = Class::WithFoo->new; |
40 | |
41 | ok $with_foo->foo_role_applied; |
42 | isa_ok $with_foo, 'Class', '$with_foo'; |
43 | |
44 | throws_ok { |
45 | Moose::Meta::Class->create( |
46 | 'Made::Of::Fail', |
47 | superclasses => ['Class'], |
48 | roles => 'Foo', # "oops" |
49 | ); |
50 | } qr/You must pass an ARRAY ref of roles/; |
51 | |
52 | ok !Made::Of::Fail->isa('UNIVERSAL'), "did not create Made::Of::Fail"; |
53 | |
54 | dies_ok { |
55 | Moose::Meta::Class->create( |
56 | 'Continuing::To::Fail', |
57 | superclasses => ['Class'], |
58 | roles => ['Foo', 'Conflicts::With::Foo'], |
59 | ); |
60 | } 'conflicting roles == death'; |
61 | |
62 | # XXX: Continuing::To::Fail gets created anyway |
63 | |