diff options
Diffstat (limited to 'lib/perl5db.t')
| -rw-r--r-- | lib/perl5db.t | 53 |
1 files changed, 52 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index bb098a1d93..6e57c9f77c 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -27,7 +27,7 @@ my $dev_tty = '/dev/tty'; } } -plan(5); +plan(7); sub rc { open RC, ">", ".perldb" or die $!; @@ -109,6 +109,57 @@ SKIP: { } } + +# Test [perl #61222] +{ + rc( + qq| + &parse_options("NonStop=0 TTY=db.out LineInfo=db.out"); + \n|, + + qq| + sub afterinit { + push(\@DB::typeahead, + 'm Pie', + 'q', + ); + }\n|, + ); + + my $output = runperl(switches => [ '-d' ], stderr => 1, progfile => '../lib/perl5db/t/rt-61222'); + my $contents; + { + local $/; + open I, "<", 'db.out' or die $!; + $contents = <I>; + close(I); + } + unlike($contents, qr/INCORRECT/, "[perl #61222]"); +} + + + +# Test for Proxy constants +{ + rc( + qq| + &parse_options("NonStop=0 TTY=db.out LineInfo=db.out"); + \n|, + + qq| + sub afterinit { + push(\@DB::typeahead, + 'm main->s1', + 'q', + ); + }\n|, + ); + + my $output = runperl(switches => [ '-d' ], stderr => 1, progfile => '../lib/perl5db/t/proxy-constants'); + is($output, "", "proxy constant subroutines"); +} + + # clean up. END { |