| Subject: | [patch] Skip 7th test in madness.t under perl 5.6.x ($] < 5.8 actually) |
FORMAT refs are not defined under old perl.
$! is empty (also discussed in BUG#44610)
and CR does not include the pragmas.
I'm adding a patch to skip the last test under legacy perls
-Burak
| Subject: | madness.t.patch |
--- t\madness.t.old 2009-03-24 02:20:36.000000000 +0200
+++ t\madness.t 2009-09-16 01:26:08.046000000 +0300
@@ -209,7 +209,8 @@
$ARRAY1->[2] = $ARRAY1;
EXPECT
}
-{
+SKIP: {
+ skip("Your version of perl ($]) does not have several features like FORMAT refs, etc. Skipping...",1) if $] < 5.008;
format STDOUT =
@<<<<<< @ââââââ @>>>>>>
"left", "middle", "right"