integrate cfgperl changes into mainline

[p5sagit/p5-mst-13.2.git] / t / io / open.t

diff --git a/t/io/open.t b/t/io/open.t
index f8c7213..1e94091 100755 (executable)
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -5,7 +5,7 @@ $|  = 1;
 $^W = 1;
 $Is_VMS = $^O eq 'VMS';
 
-print "1..64\n";
+print "1..66\n";
 
 my $test = 1;
 
@@ -258,3 +258,20 @@ EOE
 ok;
 $@ =~ /Unknown open\(\) mode \'<&\'/ or print "not ";
 ok;
+
+# 65..66
+{
+    local *F;
+    for (1..2) {
+        open(F, "echo #foo|") or print "not ";
+       print <F>;
+       close F;
+    }
+    ok;
+    for (1..2) {
+       open(F, "-|", "echo #foo") or print "not ";
+       print <F>;
+       close F;
+    }
+    ok;
+}