implement list form of pipe open for Win32

2 files changed, 11 insertions, 2 deletions

diff --git a/t/win32/system.t b/t/win32/system.t
index a6a94cb51a..939a02db55 100644
--- a/t/win32/system.t
+++ b/t/win32/system.t
@@ -151,7 +151,7 @@ while (<$T>) {
 	    note "want: $expect";
 	    note "got : $_";
 	}
-	ok($expect eq $_);
+	ok($expect eq $_, $comment // '');
     }
 }
 close $T;
diff --git a/t/win32/system_tests b/t/win32/system_tests
index e2445ed3a7..8307222ffd 100644
--- a/t/win32/system_tests
+++ b/t/win32/system_tests
@@ -87,7 +87,7 @@ my @av = (
   ['" "', 'a" "b" "c', "abc"],
 );
 
-print "1.." . (@commands * @av * 2) . "\n";
+print "1.." . (@commands * @av * 3) . "\n";
 for my $cmds (@commands) {
     for my $args (@av) {
 	my @all_args;
@@ -119,5 +119,14 @@ for my $cmds (@commands) {
 	    }
 	}
 	$^D = 0;
+
+	note "# pipe [".join(";", @cmds, @args). "]";
+	if (open my $io, "|-", @cmds, @args) {
+	    print <$io>;
+	    close $io;
+	}
+	else {
+	    print "Failed pipe open: $!\n";
+	}
     }
 }