diff options
Diffstat (limited to 'ext/XS-APItest')
| -rw-r--r-- | ext/XS-APItest/t/call.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/call.t b/ext/XS-APItest/t/call.t index bc78be1920..df98b1a55f 100644 --- a/ext/XS-APItest/t/call.t +++ b/ext/XS-APItest/t/call.t @@ -11,7 +11,7 @@ use strict; BEGIN { require '../../t/test.pl'; - plan(437); + plan(455); use_ok('XS::APItest') }; @@ -224,6 +224,8 @@ my @bodies = ( [ 'BEGIN { die "die in BEGIN"}', 0, 0, 1, qr/die in BEGIN/, ], # run-time exception [ 'd', 1, 0, 0, qr/its_dead_jim/, ], + # success with caught exception + [ 'eval { die "blah" }; 99', 0, 1, 1, qr/^$/, ], ); |