This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test the { * command.
[perl5.git] / lib / perl5db.t
index 23346d0..7a65c3b 100644 (file)
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(75);
+plan(77);
 
 my $rc_filename = '.perldb';
 
@@ -1704,6 +1704,34 @@ package main;
     );
 }
 
+# Test the { * command.
+{
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                '{ q',
+                '{ *',
+                q/b 5/,
+                q/c/,
+                q/print (("One" x 5), "\n");/,
+                q/q/,
+            ],
+            prog => '../lib/perl5db/t/disable-breakpoints-1',
+        }
+    );
+
+    $wrapper->contents_like(qr#
+        ^All\ \{\ actions\ cleared\.\n
+        #msx,
+        'Test the { * command',
+    );
+
+    $wrapper->output_like(qr/OneOneOneOneOne/,
+        '{ * test - output is OK.',
+    );
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }