diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-09-27 20:04:50 +0200 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:25 -0500 |
commit | 855abc473b41cedcea8461bf498777d96ba08e79 (patch) | |
tree | 2cf052ac2bf9efcbed01ec915902d7cea6dacc10 /lib/perl5db.t | |
parent | 4f7c5654aeba2192396b88e6affdd202478a46ce (diff) | |
download | perl-855abc473b41cedcea8461bf498777d96ba08e79.tar.gz |
[perl5db] Test o PrintRet in list context.
Diffstat (limited to 'lib/perl5db.t')
-rw-r--r-- | lib/perl5db.t | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 68d59c70c7..8eac772291 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -28,7 +28,7 @@ BEGIN { } } -plan(99); +plan(100); my $rc_filename = '.perldb'; @@ -2376,6 +2376,31 @@ sub _calc_trace_wrapper ); } +# Test the o PrintRet=1 option in list context +{ + my $wrapper = DebugWrap->new( + { + cmds => + [ + 'o PrintRet=1', + 'b 29', + 'c', + q/$x = 'l';/, + 'b 17', + 'c', + 'r', + 'q', + ], + prog => '../lib/perl5db/t/test-PrintRet-option-1', + } + ); + + $wrapper->contents_like( + qr/list context return from main::return_list:\n0\s*'Foo'\n1\s*'Bar'\n2\s*'Baz'\n/, + "Test o PrintRet=1 in list context", + ); +} + END { 1 while unlink ($rc_filename, $out_fn); } |