This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
test - and . at beginning of debugger alias name
authorTony Cook <tony@develop-help.com>
Tue, 8 Dec 2020 23:19:26 +0000 (10:19 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 8 Dec 2020 23:19:39 +0000 (10:19 +1100)
lib/perl5db.t

index d68eeb7..f6740f5 100644 (file)
@@ -2144,7 +2144,11 @@ DebugWrap->new({
             [
                 '= quit q',
                 '= foobar l',
+                '= .hello print "hellox\n"',
+                '= -goodbye print "goodbyex\n"',
                 'foobar',
+                '.hello',
+                '-goodbye',
                 'quit',
             ],
             prog => '../lib/perl5db/t/test-l-statement-1',
@@ -2160,7 +2164,9 @@ DebugWrap->new({
             5:\s+print\ "2\\n";\n
         /msx,
         'Test the = (command alias) command.',
-    );
+       );
+    $wrapper->output_like(qr/hellox.*goodbyex/xs,
+                          "check . and - can start alias name");
 }
 
 # Test the m statement.