diff options
author | Tony Cook <tony@develop-help.com> | 2021-06-22 16:19:23 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-06-22 16:19:23 +1000 |
commit | cf70408829693de7ddea8e7914ce769d0e418521 (patch) | |
tree | 442b2ef56da812572daa827df6c6335035545756 /lib | |
parent | 46f4be58aa352feb1ac51004000c29b3440b89ec (diff) | |
download | perl-cf70408829693de7ddea8e7914ce769d0e418521.tar.gz |
perl5db: add tests for v command
Diffstat (limited to 'lib')
-rw-r--r-- | lib/perl5db.t | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index f6740f5cdc..632ff087d3 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -1186,6 +1186,60 @@ DebugWrap->new({ { cmds => [ + 'v', + 'q', + ], + prog => '../lib/perl5db/t/test-l-statement-1', + } + ); + $wrapper->contents_like( + qr/ + 1==>\s+\$x\ =\ 1;\n + 2:\s+print\ "1\\n";\n + 3\s+\n + 4:\s+\$x\ =\ 2;\n + 5:\s+print\ "2\\n";\n + 6\s*\n + 7:\s+\$x\ =\ 3;\n + /msx, + "test plain v" + ); +} + +{ + my $wrapper = DebugWrap->new( + { + cmds => + [ + 'v 10', + 'q', + ], + prog => '../lib/perl5db/t/test-l-statement-1', + } + ); + + $wrapper->contents_like( + qr/ + 7:\s+\$x\ =\ 3;\n + 8:\s+print\ "3\\n";\n + 9\s*\n + 10:\s+\$x\ =\ 4;\n + 11:\s+print\ "4\\n";\n + 12\s*\n + 13:\s+\$x\ =\ 5;\n + 14:\s+print\ "5\\n";\n + 15\s*\n + 16:\s+\$x\ =\ 6;\n + /msx, + "test v with line" + ); +} + +{ + my $wrapper = DebugWrap->new( + { + cmds => + [ 'l fact', 'q', ], |