Skip nest invalidated by 5.17 change
Tim Bunce [Thu, 4 Oct 2012 17:42:58 +0000 (18:42 +0100)]
t/code.t

index c0dafe6..ed06d12 100644 (file)
--- a/t/code.t
+++ b/t/code.t
@@ -15,8 +15,11 @@ my $swoosh_size = total_size(\&swoosh);
 my $crunch_size = total_size(\&crunch);
 
 cmp_ok($whack_size, '>', 0, 'CV generated at runtime has a size');
-cmp_ok($zwapp_size, '>', $whack_size,
-       'CV stubbed at compiletime is larger (CvOUTSIDE is set and followed)');
+if ($] < 5.017) { # blead 186a5ba82d5844e9713475c494fcd6682968609f
+    cmp_ok($zwapp_size, '>', $whack_size,
+        'CV stubbed at compiletime is larger (CvOUTSIDE is set and followed)');
+}
+else { pass() }
 cmp_ok(length prototype \&swoosh, '>', 0, 'prototype has a length');
 cmp_ok($swoosh_size, '>', $zwapp_size + length prototype \&swoosh,
        'prototypes add to the size');