diff options
author | Craig A. Berry <craigberry@mac.com> | 2015-01-29 21:50:53 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2015-01-29 21:50:53 -0600 |
commit | e6ad046acdf21cf68937902df307a767e93a3340 (patch) | |
tree | 5c65d1e00155217d5be4b141db0292b1d24ea0ee /ext/Devel-Peek | |
parent | a9ccbcd7e3e4416b46c5c8cd5e61e7930776a83e (diff) | |
download | perl-e6ad046acdf21cf68937902df307a767e93a3340.tar.gz |
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.
Diffstat (limited to 'ext/Devel-Peek')
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 062aa2e03b..f5127b642f 100644 --- 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(); |