From 8ec7030c0cdae6f3de067a8669d3f986adafdc5a Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 25 Dec 2011 17:50:20 -0800 Subject: [PATCH] Skip failing DD tests under 5.6 --- dist/Data-Dumper/t/dumper.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index c522cfa1a12b..493b302d7347 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -1463,7 +1463,13 @@ EOT $foo = [ join "", map chr, 0..255, 0x20ac ]; local $Data::Dumper::Useqq = 1; - TEST q(Dumper($foo)), 'All latin1 characters with utf8 flag including a wide character'; + if ($] < 5.007) { + print "not ok " . (++$TNUM) . " # TODO - fails under 5.6\n" for 1..3; + } + else { + TEST q(Dumper($foo)), + 'All latin1 characters with utf8 flag including a wide character'; + } for (1..3) { print "not ok " . (++$TNUM) . " # TODO NYI\n" if $XS } # TEST q(Data::Dumper::DumperX($foo)) if $XS; }