diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-15 12:51:48 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-15 12:51:48 +0000 |
| commit | cd4eab350f31b452f88e849e0c9d1309692f544f (patch) | |
| tree | 99bdc3045580fb788e7b8878bad44cd23bc7ae2d /lib/perl5db.t | |
| parent | c74340f9cdee6010339b6bfd0e8b0dc8bc875344 (diff) | |
| download | perl-cd4eab350f31b452f88e849e0c9d1309692f544f.tar.gz | |
Tweaks to the debugger test by Richard Foley,
plus fix auxiliary file path
p4raw-id: //depot/perl@29280
Diffstat (limited to 'lib/perl5db.t')
| -rw-r--r-- | lib/perl5db.t | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 5323f79c7b..9c95a5b84c 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -27,23 +27,29 @@ sub rc { chmod 0644, ".perldb"; } +my $target = '../lib/perl5db/t/eval-line-bug'; + rc( qq| - &parse_options("NonStop=0 TTY=/dev/null LineInfo=db.out"); + &parse_options("NonStop=0 TTY=db.out LineInfo=db.out"); \n|, qq| sub afterinit { push(\@DB::typeahead, - "DB::print_lineinfo(\@{'main::_<perl5db/eval-line-bug'})", 'b 23', - 'c', + 'n', + 'n', + 'n', + 'c', # line 23 + 'n', + "p \\\@{'main::_<$target'}", 'q', ); }\n|, ); -runperl(switches => [ '-d' ], progfile => '../lib/perl5db/eval-line-bug'); +runperl(switches => [ '-d' ], progfile => $target); my $contents; { @@ -53,12 +59,12 @@ my $contents; close(I); } -like($contents, qr/factorial/, +like($contents, qr/sub factorial/, 'The ${main::_<filename} variable in the debugger was not destroyed' ); # clean up. END { - unlink '.perldb', 'db.out'; + unlink qw(.perldb db.out); } |