X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F50-external.t;h=d34db9cf5a980ae7a095f489c1f336abb357320f;hb=206be5711384ca587b0a022ba93a5fc602d3c03d;hp=ebf123f8487231e30af519891772062bde9e94d4;hpb=8845e141913781c0e0b4b928a38fd23da1752f6b;p=perl%2Fmodules%2Findirect.git

diff --git a/t/50-external.t b/t/50-external.t
index ebf123f..d34db9c 100644
--- a/t/50-external.t
+++ b/t/50-external.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Config;
 
-use Test::More tests => 6;
+use Test::More tests => 8;
 
 use lib 't/lib';
 use VPIT::TestHelpers 'run_perl';
@@ -67,3 +67,19 @@ SKIP: {
  skip RUN_PERL_FAILED() => ($tests - 1) unless defined $status;
  is $status, 0, 'indirect and local END blocks executed at the end of a forked process';
 }
+
+SKIP: {
+ my $status;
+ for my $run (1 .. 10) {
+  $status = run_perl_file 't/testcases/rt115392.pl';
+  skip RUN_PERL_FAILED() => 1 unless defined $status;
+  last if $status;
+ }
+ 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';
+}