lib/perl5db.t: Add test for bug #116769, Frame=2 crashes debugger
authorKent Fredric <kentfredric@gmail.com>
Thu, 21 Feb 2013 09:41:48 +0000 (22:41 +1300)
committerRicardo Signes <rjbs@cpan.org>
Tue, 19 Mar 2013 03:02:05 +0000 (23:02 -0400)
lib/perl5db.t

index 174554f..9bd2453 100644 (file)
@@ -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');