diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-15 21:41:37 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-15 21:41:37 -0800 |
| commit | ca80cbdc2173732ae176abaa8967ce047eddbf52 (patch) | |
| tree | 2220573f34b1cf8b830c934059851193d289dcc0 /dist | |
| parent | 89988fbd2f7d8a44526a3cd9ab671b3102898bc9 (diff) | |
| download | perl-ca80cbdc2173732ae176abaa8967ce047eddbf52.tar.gz | |
Carp.t: Add tests for PL_last_in_gv
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Carp/t/Carp.t | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/dist/Carp/t/Carp.t b/dist/Carp/t/Carp.t index 96f0f91625..d20ca22eba 100644 --- a/dist/Carp/t/Carp.t +++ b/dist/Carp/t/Carp.t @@ -3,7 +3,7 @@ no warnings "once"; use Config; use IPC::Open3 1.0103 qw(open3); -use Test::More tests => 58; +use Test::More tests => 59; sub runperl { my(%args) = @_; @@ -423,6 +423,14 @@ SKIP: ); } +# [perl #96672] +<D::DATA> for 1..2; +eval { croak 'heek' }; +$@ =~ s/\n.*//; # just check first line +is $@, "heek at ".__FILE__." line ".(__LINE__-2).", <DATA> line 2\n", + 'last handle line num is mentioned'; + + # New tests go here # line 1 "A" @@ -472,4 +480,7 @@ sub long { } # Put new tests at "new tests go here" -__END__ +__DATA__ +1 +2 +3 |