move 80x tests to 800_shikabased

[gitmo/Mouse.git] / t / 202-squirrel-role.t

diff --git a/t/202-squirrel-role.t b/t/202-squirrel-role.t
index 618b950..7201754 100644 (file)
--- a/t/202-squirrel-role.t
+++ b/t/202-squirrel-role.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Scalar::Util 'blessed';
+use Mouse::Util 'blessed';
 
 do {
     package Foo::Role;
@@ -22,8 +22,8 @@ do {
 # 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 {
@@ -39,7 +39,10 @@ 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;
@@ -53,9 +56,9 @@ eval "
     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');