TODO Peek.t test on VMS.

DumpProg() works just fine but when piped through the broken pipe
implementation produces spurious newlines.  So mark it TODO on VMS.

diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 062aa2e..f5127b6 100644 (file)
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -1474,7 +1474,9 @@ for my $test (
    test_DumpProg(@$test);
 }
 
-my $e = <<'EODUMP';
+{
+    local $TODO = 'This gets mangled by the current pipe implementation' if $^O eq 'VMS';
+    my $e = <<'EODUMP';
 dumpindent is 4 at -e line 1.
 {
 1   TYPE = leave  ===> NULL
@@ -1521,13 +1523,13 @@ dumpindent is 4 at -e line 1.
 }
 EODUMP
 
-$e =~ s/GV_OR_PADIX/$threads ? "PADIX = 2" : "GV = t::DumpProg"/e;
-$e =~ s/.*PRIVATE = \(0x1\).*\n// if $] < 5.021004;
-my $out = t::runperl
-             switches => ['-Ilib'],
-             prog => 'package t; use Devel::Peek q-DumpProg-; DumpProg();',
-             stderr=>1;
-$out =~ s/ *SEQ = .*\n//;
-is $out, $e, "DumpProg() has no 'Attempt to free X prematurely' warning";
-
+    $e =~ s/GV_OR_PADIX/$threads ? "PADIX = 2" : "GV = t::DumpProg"/e;
+    $e =~ s/.*PRIVATE = \(0x1\).*\n// if $] < 5.021004;
+    my $out = t::runperl
+                 switches => ['-Ilib'],
+                 prog => 'package t; use Devel::Peek q-DumpProg-; DumpProg();',
+                 stderr=>1;
+    $out =~ s/ *SEQ = .*\n//;
+    is $out, $e, "DumpProg() has no 'Attempt to free X prematurely' warning";
+}
 done_testing();