X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-weaken.t;h=d390c27d669d8c443bb7beb1b53825a05787a359;hb=5f578bd39f14ac6d2703c76b6d65e11a0f12a3c0;hp=3b99264720618f3d294d2a02b116e27d3d06d507;hpb=673eb4988f20b57235a6e8b9ff7035b95ba98baa;p=gitmo%2FMoo.git diff --git a/t/accessor-weaken.t b/t/accessor-weaken.t index 3b99264..d390c27 100644 --- a/t/accessor-weaken.t +++ b/t/accessor-weaken.t @@ -26,6 +26,9 @@ if ($] < 5.008003) { 'Expected exception thrown on old perls' ); } +elsif ($^O eq 'cygwin' and $] < 5.012000) { + SKIP: { skip 'Static coderef reaping seems nonfunctional on cygwin < 5.12', 1 } +} else { is(${$foo_ro->one},'yay', 'value present'); ok(Scalar::Util::isweak($foo_ro->{one}), 'value weakened');