From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 11 May 2003 16:11:55 +0000 (+0000)
Subject: add test for change#19475,19479 (bugs#21717,22140)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6dd04483cb30505dd31342b8e0d790b3545179d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;