diff options
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index f6419822de..5a8efe3cd7 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -922,4 +922,12 @@ unless ($Config{useithreads}) { # (One block of study tests removed when study was made a no-op.) +{ + open(OUT,">peek$$") or die "Failed to open peek $$: $!"; + open(STDERR, ">&OUT") or die "Can't dup OUT: $!"; + DeadCode(); + open(STDERR, ">&SAVERR") or die "Can't restore STDERR: $!"; + pass "no crash with DeadCode"; +} + done_testing(); |