add test for change#19475,19479 (bugs#21717,22140)

p4raw-link: @19479 on //depot/perlio: aa063c351bd93493dd45b11fa59e0e5a90b4b421
p4raw-link: @19475 on //depot/perlio: 6caa5a9cfe39f91bc44bba937a0b491f754fe9cd

p4raw-id: //depot/perlio@19486

diff --git a/t/io/fflush.t b/t/io/fflush.t
index fbf6b47..eab9a01 100644 (file)
--- a/t/io/fflush.t
+++ b/t/io/fflush.t
@@ -23,17 +23,19 @@ my $fflushall = defined $Config{fflushall} ? $Config{fflushall} eq 'define' ? 1
 my $d_fork = defined $Config{d_fork} ? $Config{d_fork} eq 'define' ? 1 : 0 : 0;
 
 if ($useperlio || $fflushNULL || $d_sfio) {
-    print "1..4\n";
+    print "1..7\n";
 } else {
     if ($fflushall) {
-       print "1..4\n";
+       print "1..7\n";
     } else {
        print "1..0 # Skip: fflush(NULL) or equivalent not available\n";
         exit;
     }
 }
 
-my $runperl = qq{$^X "-I../lib"};
+my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
+$runperl .= qq{ "-I../lib"};
+
 my @delete;
 
 END {
@@ -129,3 +131,12 @@ for (qw(system qx popen)) {
     push @delete, $f;
     ++$t;
 }
+
+my $cmd = qq[$runperl -e "print qq[ok \$_\\n] for ($t..$t+2)"];
+open my $CMD, "$cmd |" or die "Can't open pipe to '$cmd': $!";
+while (<$CMD>) {
+    system("$runperl -e 0");
+    print;
+}
+close $CMD;
+$t += 3;