perl -d: add a test to the 's' command.

Conflicts:

	lib/perl5db.t

diff --git a/lib/perl5db.t b/lib/perl5db.t
index b9a806b..5c52a0e 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(26);
+plan(28);
 
 my $rc_filename = '.perldb';
 
@@ -610,6 +610,55 @@ EOF
     );
 }
 
+{
+    rc(<<'EOF');
+&parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
+
+sub afterinit {
+    push (@DB::typeahead,
+    'n',
+    'n',
+    'b . $exp > 200',
+    'c',
+    q/print "Exp={$exp}\n";/,
+    'q',
+    );
+
+}
+EOF
+
+    my $output = runperl(switches => [ '-d', ], stderr => 1, progfile => '../lib/perl5db/t/break-on-dot'); +
+    like($output, qr/
+        Exp=\{256\}
+        /msx,
+        "'b .' is working correctly.");
+}
+
+{
+    rc(<<'EOF');
+&parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
+
+sub afterinit {
+    push (@DB::typeahead,
+    's',
+    'q',
+    );
+
+}
+EOF
+
+    my $prog_fn = '../lib/perl5db/t/rt-104168';
+    my $output = runperl(switches => [ '-d', ], stderr => 1, progfile => $prog_fn,);
+
+    like(_out_contents(),
+        qr/
+        ^main::foo\([^\)\n]*\brt-104168:9\):[\ \t]*\n
+        ^9:\s*bar\(\);
+        /msx,
+        'Test for the s command.',
+    );
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }