lib/perl5db.t: Add test for bug #116771, autotrace crashes debugger

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 9bd2453..fe1031b 100644 (file)
--- 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');