diff options
Diffstat (limited to 'lib/perl5db.t')
-rw-r--r-- | lib/perl5db.t | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 1d6a34251e..631635ea70 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -28,7 +28,7 @@ BEGIN { } } -plan(94); +plan(95); my $rc_filename = '.perldb'; @@ -2248,6 +2248,33 @@ sub _calc_trace_wrapper ); } +# Test the t command with function calls +{ + my $wrapper = DebugWrap->new( + { + cmds => + [ + 't', + 'b 18', + 'c', + 'x ["foo"]', + 'x ["bar"]', + 'q', + ], + prog => '../lib/perl5db/t/test-warnLevel-option-1', + } + ); + + $wrapper->contents_like(qr/ + ^main::\([^:]+:28\):\n + 28:\s+myfunc\(\);\n + main::myfunc\([^:]+:25\):\n + 25:\s+bar\(\);\n + /msx, + 'Test the t command with function calls.', + ); +} + END { 1 while unlink ($rc_filename, $out_fn); } |