From: Kent Fredric <kentfredric@gmail.com>
Date: Thu, 21 Feb 2013 09:44:04 +0000 (+1300)
Subject: lib/perl5db.t: Add test for bug #116771, autotrace crashes debugger
X-Git-Tag: upstream/5.20.0~3780
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ddd6e33953565b51a20d977ac0d6906add39d3cd;p=platform%2Fupstream%2Fperl.git

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
--- 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');