use warnings;
use Test::More;
-use Scalar::Util 'blessed';
+use Mouse::Util 'blessed';
do {
package Foo::Role;
# affecting its definition
BEGIN {
- plan skip_all => "Moose required for this test" unless eval { require Moose };
- plan tests => 12;
+ plan skip_all => "Moose required for this test" unless eval { require Moose::Role };
+ plan tests => 6;
}
do {
};
ok(!Foo::Role->can('has'), "Mouse::Role::has was unimported");
-ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
+SKIP: {
+ skip "ancient moose", 1 if $Moose::VERSION <= 0.50;
+ ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
+}
eval "
package Foo::Role;
has bar => (is => 'rw');
";
-isa_ok(blessed(Foo::Role->meta), 'Mouse::Meta::Role');
-isa_ok(blessed(Foo::Role->meta), 'Mouse::Meta::Role', 'Squirrel::Role is consistent if Moose was loaded between imports');
+isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
+isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
-isa_ok(blessed(Bar::Role->meta), 'Moose::Meta::Role');
-isa_ok(blessed(Bar::Role->meta), 'Moose::Meta::Role');
+isa_ok(Bar::Role->meta, 'Moose::Meta::Role');
+isa_ok(Bar::Role->meta, 'Moose::Meta::Role');