Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[perl5db] Test the "A *" command.

Seems to be successful.
  • Loading branch information...
commit 4614f6b7f05ab69251245028776c4a3667a5af9c 1 parent 01273a1
@shlomif authored
Showing with 24 additions and 2 deletions.
  1. +24 −2 lib/perl5db.t
View
26 lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
}
}
-plan(50);
+plan(51);
my $rc_filename = '.perldb';
@@ -1316,11 +1316,33 @@ package main;
);
$wrapper->output_like(
- qr#\A\z#, # The empty string.
+ qr#\A\z#msx, # The empty string.
"A command (for removing actions) is working",
);
}
+# Test the 'A *' command
+{
+ my $wrapper = DebugWrap->new(
+ {
+ cmds =>
+ [
+ 'a 6 print "\nFail!\n"',
+ 'a 13 print "\nVar<Q>=$q\n"',
+ 'A *',
+ 'c',
+ 'q',
+ ],
+ prog => '../lib/perl5db/t/eval-line-bug',
+ }
+ );
+
+ $wrapper->output_like(
+ qr#\A\z#msx, # The empty string.
+ "'A *' command (for removing all actions) is working",
+ );
+}
+
END {
1 while unlink ($rc_filename, $out_fn);
}
Please sign in to comment.
Something went wrong with that request. Please try again.