diff options
| author | Kent Fredric <kentfredric@gmail.com> | 2013-02-21 22:44:04 +1300 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2013-03-18 23:02:05 -0400 |
| commit | ddd6e33953565b51a20d977ac0d6906add39d3cd (patch) | |
| tree | f47c6302c0a74191b9625cc19d0dcc6989e48bd7 /lib/perl5db.t | |
| parent | a7d38e6724921b9571a1a95309ad208d35d09d34 (diff) | |
| download | perl-ddd6e33953565b51a20d977ac0d6906add39d3cd.tar.gz | |
lib/perl5db.t: Add test for bug #116771, autotrace crashes debugger
Diffstat (limited to 'lib/perl5db.t')
| -rw-r--r-- | lib/perl5db.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 9bd24532cb..fe1031b49d 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -28,7 +28,7 @@ BEGIN { } } -plan(111); +plan(113); my $rc_filename = '.perldb'; @@ -100,6 +100,13 @@ EOF is( $?, 0, '[perl #116769] frame=2 does not crash debugger, exit == 0' ); like( $output, 'success' , '[perl #116769] code is run' ); } +# [ perl #116771] autotrace +{ + local $ENV{PERLDB_OPTS} = "autotrace nonstop"; + my $output = runperl( switches => [ '-d' ], prog => 'print q{success}' ); + is( $?, 0, '[perl #116771] autotrace does not crash debugger, exit == 0' ); + like( $output, 'success' , '[perl #116771] code is run' ); +} { rc(<<'EOF'); |