7 use Scalar::Util 'blessed';
21 # note that 'Foo' is defined before this, to prevent Moose being loaded from
22 # affecting its definition
25 plan skip_all => "Moose required for this test" unless eval { require Moose };
41 ok(!Foo::Role->can('has'), "Mouse::Role::has was unimported");
42 ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
48 has bar => (is => 'rw');
53 has bar => (is => 'rw');
56 isa_ok(blessed(Foo::Role->meta), 'Mouse::Meta::Role');
57 isa_ok(blessed(Foo::Role->meta), 'Mouse::Meta::Role', 'Squirrel::Role is consistent if Moose was loaded between imports');
59 isa_ok(blessed(Bar::Role->meta), 'Moose::Meta::Role');
60 isa_ok(blessed(Bar::Role->meta), 'Moose::Meta::Role');