SYN SYN

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

diff --git a/t/io/open.t b/t/io/open.t
index f8c7213..0190281 100755 (executable)
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -1,11 +1,16 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}    
+
 # $RCSfile$    
 $|  = 1;
-$^W = 1;
+use warnings;
 $Is_VMS = $^O eq 'VMS';
 
-print "1..64\n";
+print "1..66\n";
 
 my $test = 1;
 
@@ -95,7 +100,7 @@ sub ok { print "ok $test\n"; $test++ }
 
 # 24..26
 if ($Is_VMS) {
-    for (24..26) { print "ok $_ # skipped: not Unix fork\n"; }
+    for (24..26) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
 }
 else {
     print "# \$!='$!'\nnot " unless open(my $f, '-|', <<'EOC');
@@ -111,7 +116,7 @@ EOC
 
 # 27..30
 if ($Is_VMS) {
-    for (27..30) { print "ok $_ # skipped: not Unix fork\n"; }
+    for (27..30) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
 }
 else {
     print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC');
@@ -219,7 +224,7 @@ ok;
 
 # 56..58
 if ($Is_VMS) {
-    for (56..58) { print "ok $_ # skipped: not Unix fork\n"; }
+    for (56..58) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
 }
 else {
     print "# \$!='$!'\nnot " unless open(local $f, '-|', <<'EOC');
@@ -235,7 +240,7 @@ EOC
 
 # 59..62
 if ($Is_VMS) {
-    for (59..62) { print "ok $_ # skipped: not Unix fork\n"; }
+    for (59..62) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
 }
 else {
     print "# \$!='$!'\nnot " unless open(local $f, '|-', <<'EOC');
@@ -258,3 +263,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;
+}