X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F200_Class_C3_compatibility.t;h=bf091d44f0bd1ab7c614364f77c299f54a6054b7;hb=230472a7d408d93238875666b1369406e8967de3;hp=7eba4822cb4cd16cdb9892bc7eedc61a727e3179;hpb=663f81981a56fded486ffdb71bed5c5ab2e5c3fd;p=gitmo%2FClass-MOP.git diff --git a/t/200_Class_C3_compatibility.t b/t/200_Class_C3_compatibility.t index 7eba482..bf091d4 100644 --- a/t/200_Class_C3_compatibility.t +++ b/t/200_Class_C3_compatibility.t @@ -56,8 +56,12 @@ is_deeply( ok(Diamond_A->meta->has_method('hello'), '... A has a method hello'); ok(!Diamond_B->meta->has_method('hello'), '... B does not have a method hello'); -ok(defined &Diamond_B::hello, '... B does have an alias to the method hello'); ok(Diamond_C->meta->has_method('hello'), '... C has a method hello'); ok(!Diamond_D->meta->has_method('hello'), '... D does not have a method hello'); -ok(defined &Diamond_D::hello, '... D does have an alias to the method hello'); + +SKIP: { + skip "C3 does not make aliases on 5.9.5+", 2 if $] > 5.009_004; + ok(defined &Diamond_B::hello, '... B does have an alias to the method hello'); + ok(defined &Diamond_D::hello, '... D does have an alias to the method hello'); +}