lib/perl5db.t: Add test for bug #116769, Frame=2 crashes debugger

1 files changed, 8 insertions, 1 deletions

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 174554f042..9bd24532cb 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(109);
+plan(111);
 
 my $rc_filename = '.perldb';
 
@@ -93,6 +93,13 @@ EOF
     my $output = runperl(switches => [ '-d' ], stderr => 1, progfile => '../lib/perl5db/t/rt-66110');
     like($output, "All tests successful.", "[perl #66110]");
 }
+# [ perl #116769] Frame=2
+{
+    local $ENV{PERLDB_OPTS} = "frame=2 nonstop";
+    my $output = runperl( switches => [ '-d' ], prog => 'print q{success}' );
+    is( $?, 0, '[perl #116769] frame=2 does not crash debugger, exit == 0' );
+    like( $output, 'success' , '[perl #116769] code is run' );
+}
 
 {
     rc(<<'EOF');