diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-11-06 18:05:17 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-06 22:18:54 -0800 |
commit | c5c79a5302bceb6792fecadc07e085d6b65f634b (patch) | |
tree | dc5d85549510c8b5819720bcc2418dab8071e921 /ext/Devel-Peek | |
parent | 5e412b02b2f6fd718e8405c83d8748eca095ab21 (diff) | |
download | perl-c5c79a5302bceb6792fecadc07e085d6b65f634b.tar.gz |
Adjust Peek.t for SEQ dumping
Diffstat (limited to 'ext/Devel-Peek')
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 51aa81695f..57dbe41da7 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1475,7 +1475,7 @@ for my $test ( } my $e = <<'EODUMP'; -dumpindent is 4 at - line 1. +dumpindent is 4 at -e line 1. { 1 TYPE = leave ===> NULL TARG = 1 @@ -1523,7 +1523,11 @@ EODUMP $e =~ s/GV_OR_PADIX/$threads ? "PADIX = 2" : "GV = t::DumpProg"/e; $e =~ s/.*PRIVATE = \(0x1\).*\n// if $] < 5.021004; - -test_DumpProg("package t;", $e, "DumpProg() has no 'Attempt to free X prematurely' warning", "is" ); +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(); |