From: Vincent Pit Date: Tue, 12 Jul 2016 15:41:51 +0000 (-0300) Subject: Test indirect calls in babycart in heredocs X-Git-Tag: v0.37~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b88a054e2ca91c186a420e015b3a383b406ff2d0;p=perl%2Fmodules%2Findirect.git Test indirect calls in babycart in heredocs --- diff --git a/MANIFEST b/MANIFEST index 7f3d8d6..e0ee05b 100644 --- a/MANIFEST +++ b/MANIFEST @@ -52,6 +52,7 @@ t/lib/indirect/TestRequired5/c0.pm t/lib/indirect/TestRequired5/d0.pm t/lib/indirect/TestRequired6.pm t/lib/indirect/TestRequiredGlobal.pm +t/testcases/babycart_in_heredoc.pl t/testcases/rt115392.pl xsh/caps.h xsh/debug.h diff --git a/t/50-external.t b/t/50-external.t index 60ed244..d34db9c 100644 --- a/t/50-external.t +++ b/t/50-external.t @@ -5,7 +5,7 @@ use warnings; use Config; -use Test::More tests => 7; +use Test::More tests => 8; use lib 't/lib'; use VPIT::TestHelpers 'run_perl'; @@ -77,3 +77,9 @@ SKIP: { } is $status, 0, 'RT #115392'; } + +SKIP: { + my $status = run_perl_file 't/testcases/babycart_in_heredoc.pl'; + skip RUN_PERL_FAILED() => 1 unless defined $status; + is $status, 0, 'babycart in heredoc'; +} diff --git a/t/testcases/babycart_in_heredoc.pl b/t/testcases/babycart_in_heredoc.pl new file mode 100644 index 0000000..4db3c2f --- /dev/null +++ b/t/testcases/babycart_in_heredoc.pl @@ -0,0 +1,5 @@ +no indirect hook => sub { exit("$_[0] $_[1]" eq "X new" ? 0 : 1) }; +<<"FOO"; +abc @{[ new X ]} def +FOO +BEGIN { exit 2 }