Test indirect calls in babycart in heredocs

[perl/modules/indirect.git] / t / testcases / babycart_in_heredoc.pl

diff --git a/t/testcases/babycart_in_heredoc.pl b/t/testcases/babycart_in_heredoc.pl
new file mode 100644 (file)
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 }