Test indirect calls in babycart in heredocs

[perl/modules/indirect.git] / t / 50-external.t

diff --git a/t/50-external.t b/t/50-external.t
index 60ed24469d13ef24921596254bdee9fe8ce3cc28..d34db9cf5a980ae7a095f489c1f336abb357320f 100644 (file)
--- 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';
+}