diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-25 17:50:20 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-25 17:50:20 -0800 |
commit | 8ec7030c0cdae6f3de067a8669d3f986adafdc5a (patch) | |
tree | 40176ab3ddd78db24ad6c4029b1f3dcf230d4fc0 /dist | |
parent | 6c512c3f0714350cd3c600afc57e1d3e4930a552 (diff) | |
download | perl-8ec7030c0cdae6f3de067a8669d3f986adafdc5a.tar.gz |
Skip failing DD tests under 5.6
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Data-Dumper/t/dumper.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index c522cfa1a1..493b302d73 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; } |