diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-09-25 18:53:12 +0200 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:24 -0500 |
commit | 7d9a5afb4619cae3f97cecff09d54b7f0568d604 (patch) | |
tree | d7faf0add0b6e31d8ba0cd9e40af2a3ed0806d24 /lib/perl5db.t | |
parent | 5e2b42ddebea0a2233ca328baa553143818deee5 (diff) | |
download | perl-7d9a5afb4619cae3f97cecff09d54b7f0568d604.tar.gz |
Test o inhibit_exit=0.
Diffstat (limited to 'lib/perl5db.t')
-rw-r--r-- | lib/perl5db.t | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 08f513abbb..6b7dd19840 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -28,7 +28,7 @@ BEGIN { } } -plan(96); +plan(97); my $rc_filename = '.perldb'; @@ -2301,6 +2301,31 @@ sub _calc_trace_wrapper 'Test the t command with function calls.', ); } + +# Test the o inhibit_exit=0 command +{ + my $wrapper = DebugWrap->new( + { + cmds => + [ + 'o inhibit_exit=0', + 'n', + 'n', + 'n', + 'n', + 'q', + ], + prog => '../lib/perl5db/t/test-warnLevel-option-1', + } + ); + + $wrapper->contents_unlike(qr/ + ^Debugged\ program\ terminated\. + /msx, + 'Test the o inhibit_exit=0 command.', + ); +} + END { 1 while unlink ($rc_filename, $out_fn); } |