X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F202-squirrel-role.t;h=5c703619ecd9f4bd63fcf4cfb7614cd79e91ea74;hp=618b9504717502f9ea10cbb746f99f50a1f42137;hb=6c169c5063b77a791818f5db2c1da3bd9b47d3f9;hpb=9fc566e38c5a8786a58aace9ee7304339234ea4b diff --git a/t/202-squirrel-role.t b/t/202-squirrel-role.t index 618b950..5c70361 100644 --- a/t/202-squirrel-role.t +++ b/t/202-squirrel-role.t @@ -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');