X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F202-squirrel-role.t;h=7201754ce724e69f1202450126aa8e7c05369d64;hb=59089ec36675c7df1998945b1446c37794f88306;hp=402f4d17dea7f3a5a5d1497b54f7ffe544c2d4a3;hpb=d1288432a09952f46e9b6ca4d5e3373fb7fea9e6;p=gitmo%2FMouse.git diff --git a/t/202-squirrel-role.t b/t/202-squirrel-role.t index 402f4d1..7201754 100644 --- 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; @@ -23,7 +23,7 @@ do { BEGIN { plan skip_all => "Moose required for this test" unless eval { require Moose::Role }; - plan tests => 12; + 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;