From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 24 Dec 2011 20:03:58 +0000 (+0200)
Subject: Add a test for "n EXPR()".
X-Git-Tag: accepted/trunk/20130322.191538~1439
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d7b8b95b66ee5e5a9aeb05b0f588271fbd69d907;p=platform%2Fupstream%2Fperl.git

Add a test for "n EXPR()".
---

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 76b8c3b..9398325 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(29);
+plan(30);
 
 my $rc_filename = '.perldb';
 
@@ -682,6 +682,29 @@ EOF
 
 }
 
+{
+    rc(<<'EOF');
+&parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
+
+sub afterinit {
+    push (@DB::typeahead,
+    'n uncalled_subroutine()',
+    'c',
+    'q',
+    );
+
+}
+EOF
+
+    my $output = runperl(switches => [ '-d', ], stderr => 1, progfile => '../lib/perl5db/t/uncalled-subroutine');
+
+    like ($output, 
+        qr/<1,2,3,4,5>\n/,
+        'uncalled_subroutine was called after n EXPR()',
+        );
+
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }