Skip |- based op/write.t on Win32 as well as VMS

[p5sagit/p5-mst-13.2.git] / t / op / write.t

diff --git a/t/op/write.t b/t/op/write.t
index 2830974..ac6c035 100755 (executable)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -273,6 +273,11 @@ else
 
 # 12..44: scary format testing from Merijn H. Brand
 
+if ($^O eq 'VMS' || $^O eq 'MSWin32') {
+  foreach (12..44) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
+  exit(0);
+}
+
 use strict;    # Amazed that this hackery can be made strict ...
 
 # Just a complete test for format, including top-, left- and bottom marging