print "1..44\n";
-my $CAT = ($^O eq 'MSWin32') ? 'type' : 'cat';
+my $CAT = ($^O eq 'MSWin32' || $^O eq 'NetWare') ? 'type'
+ : ($^O eq 'MacOS') ? 'catenate'
+ : 'cat';
format OUT =
the quick brown @<<
# 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