diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-09-12 10:56:54 +0300 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:20 -0500 |
commit | 3743412c99b8ad953af1c048e2a0dae2036d8c77 (patch) | |
tree | 613f3656849077c351575d5fa80395768bc13987 /lib/perl5db.t | |
parent | 1e121f70f5f1d7a49dc7a8a56f5644d22c6d6e4e (diff) | |
download | perl-3743412c99b8ad953af1c048e2a0dae2036d8c77.tar.gz |
Test the { * command.
Diffstat (limited to 'lib/perl5db.t')
-rw-r--r-- | lib/perl5db.t | 30 |
1 files changed, 29 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 23346d081a..7a65c3b98e 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -28,7 +28,7 @@ BEGIN { } } -plan(75); +plan(77); my $rc_filename = '.perldb'; @@ -1704,6 +1704,34 @@ package main; ); } +# Test the { * command. +{ + my $wrapper = DebugWrap->new( + { + cmds => + [ + '{ q', + '{ *', + q/b 5/, + q/c/, + q/print (("One" x 5), "\n");/, + q/q/, + ], + prog => '../lib/perl5db/t/disable-breakpoints-1', + } + ); + + $wrapper->contents_like(qr# + ^All\ \{\ actions\ cleared\.\n + #msx, + 'Test the { * command', + ); + + $wrapper->output_like(qr/OneOneOneOneOne/, + '{ * test - output is OK.', + ); +} + END { 1 while unlink ($rc_filename, $out_fn); } |