diff options
Diffstat (limited to 't/op/die_unwind.t')
-rw-r--r-- | t/op/die_unwind.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/die_unwind.t b/t/op/die_unwind.t index eee1ce534b..4b83ee6fac 100644 --- a/t/op/die_unwind.t +++ b/t/op/die_unwind.t @@ -69,4 +69,8 @@ is($uerr, "t3\n"); is($val, undef, "undefined return value from 'eval' block with 'die'"); is($err, "t3\n"); +fresh_perl_like(<<'EOS', qr/Custom Message During Global Destruction/, { switches => ['-w'], stderr => 1 } ); +package Foo; sub DESTROY { die "Custom Message During Global Destruction" }; package main; our $wut = bless [], "Foo" +EOS + done_testing(); |