diff options
author | Tony Cook <tony@develop-help.com> | 2020-12-09 10:19:26 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2020-12-09 10:19:39 +1100 |
commit | 43a1c913bb191429198d582581bdfe54180057b5 (patch) | |
tree | e7fd5d910e6db3ef89f6ea1a75c994dafcb9fe0f /lib/perl5db.t | |
parent | 0e91c879f0c0c46aea851b8857cf5a4ad21a6c22 (diff) | |
download | perl-43a1c913bb191429198d582581bdfe54180057b5.tar.gz |
test - and . at beginning of debugger alias name
Diffstat (limited to 'lib/perl5db.t')
-rw-r--r-- | lib/perl5db.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index d68eeb7f1f..f6740f5cdc 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -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. |