t/io/fs.t - skip all tests that fail on VOS

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

diff --git a/t/io/print.t b/t/io/print.t
index 180b1e8..0578ee6 100755 (executable)
--- a/t/io/print.t
+++ b/t/io/print.t
@@ -1,8 +1,6 @@
 #!./perl
 
-# $RCSfile: print.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:32 $
-
-print "1..16\n";
+print "1..18\n";
 
 $foo = 'STDOUT';
 print $foo "ok 1\n";
@@ -30,3 +28,7 @@ print "ok","11";
 @x = ("ok","12\nok","13\nok");
 @y = ("15\nok","16");
 print @x,"14\nok",@y;
+{
+    local $\ = "ok 17\n# null =>[\000]\nok 18\n";
+    print "";
+}