3 use Test::More tests => 10;
7 use_ok('Moose::Meta::Class');
18 sub foo_role_applied { 1 }
20 package Conflicts::With::Foo;
22 sub foo_role_applied { 0 }
31 $new_class = Moose::Meta::Class->create(
33 superclasses => ['Class'],
39 my $with_foo = Class::WithFoo->new;
41 ok $with_foo->foo_role_applied;
42 isa_ok $with_foo, 'Class', '$with_foo';
45 Moose::Meta::Class->create(
47 superclasses => ['Class'],
48 roles => 'Foo', # "oops"
50 } qr/You must pass an ARRAY ref of roles/;
52 ok !Made::Of::Fail->isa('UNIVERSAL'), "did not create Made::Of::Fail";
55 Moose::Meta::Class->create(
56 'Continuing::To::Fail',
57 superclasses => ['Class'],
58 roles => ['Foo', 'Conflicts::With::Foo'],
60 } 'conflicting roles == death';
62 # XXX: Continuing::To::Fail gets created anyway