6 use Test::More tests => 10;
10 use_ok('Moose::Meta::Class');
12 use_ok('Moose::Role');
21 sub foo_role_applied { 1 }
23 package Conflicts::With::Foo;
25 sub foo_role_applied { 0 }
34 $new_class = Moose::Meta::Class->create(
36 superclasses => ['Class'],
42 my $with_foo = Class::WithFoo->new;
44 ok $with_foo->foo_role_applied;
45 isa_ok $with_foo, 'Class', '$with_foo';
48 Moose::Meta::Class->create(
50 superclasses => ['Class'],
51 roles => 'Foo', # "oops"
53 } qr/You must pass an ARRAY ref of roles/;
55 ok !Made::Of::Fail->isa('UNIVERSAL'), "did not create Made::Of::Fail";
58 Moose::Meta::Class->create(
59 'Continuing::To::Fail',
60 superclasses => ['Class'],
61 roles => ['Foo', 'Conflicts::With::Foo'],
63 } 'conflicting roles == death';
65 # XXX: Continuing::To::Fail gets created anyway