diff options
| -rw-r--r-- | lib/perl5db.t | 53 | ||||
| -rw-r--r-- | lib/perl5db/t/proxy-constants | 9 | ||||
| -rw-r--r-- | lib/perl5db/t/rt-61222 | 10 |
3 files changed, 71 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 { diff --git a/lib/perl5db/t/proxy-constants b/lib/perl5db/t/proxy-constants new file mode 100644 index 0000000000..ea60855b75 --- /dev/null +++ b/lib/perl5db/t/proxy-constants @@ -0,0 +1,9 @@ +#!/usr/bin/perl +# +# This code is used by lib/perl5db.t !!! +# + +use constant FOO => "bar"; +sub s1 { + "main"; +} diff --git a/lib/perl5db/t/rt-61222 b/lib/perl5db/t/rt-61222 new file mode 100644 index 0000000000..6dd6a94b7e --- /dev/null +++ b/lib/perl5db/t/rt-61222 @@ -0,0 +1,10 @@ +#!/usr/bin/perl +# +# This code is used by lib/perl5db.t !!! +# + +package Pie; + +sub INCORRECT (DB); + +1; |