print "1..44\n";
-my $CAT = ($^O eq 'MSWin32' || $^O eq 'NetWare') ? 'type'
+my $CAT = ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') ? 'type'
: ($^O eq 'MacOS') ? 'catenate'
: 'cat';
$multiline = "forescore\nand\nseven years\n";
$foo = 'when in the course of human events it becomes necessary';
write(OUT);
-close OUT;
+close OUT or die "Could not close: $!";
$right =
"the quick brown fox
$multiline = "forescore\nand\nseven years\n";
$foo = 'when in the course of human events it becomes necessary';
write(OUT2);
-close OUT2;
+close OUT2 or die "Could not close: $!";
$right =
"the quick brown fox
$multiline = "forescore\nand\nseven years\n";
$foo = 'when in the course of human events it becomes necessary';
write(OUT2);
-close OUT2;
+close OUT2 or die "Could not close: $!";
$right =
"the brown quick fox
$foo = 'fit ';
write(OUT3);
-close OUT3;
+close OUT3 or die "Could not close: $!";
$right =
"fit\n";
write LEX;
$that = 8;
write LEX;
- close LEX;
+ close LEX or die "Could not close: $!";
}
# LEX_INTERPNORMAL test
my %e = ( a => 1 );
.
open OUT4, ">Op_write.tmp" or die "Can't create Op_write.tmp";
write (OUT4);
-close OUT4;
+close OUT4 or die "Could not close: $!";
if (`$CAT Op_write.tmp` eq "1\n") {
print "ok 9\n";
1 while unlink "Op_write.tmp";
$test1 = 12.95;
write(OUT10);
-close OUT10;
+close OUT10 or die "Could not close: $!";
$right = " 12.95 00012.95\n";
if (`$CAT Op_write.tmp` eq $right)
$test1 = 12.95;
write(OUT11);
-close OUT11;
+close OUT11 or die "Could not close: $!";
$right =
"00012.95
# 12..44: scary format testing from Merijn H. Brand
-if ($^O eq 'VMS' || $^O eq 'MSWin32') {
+if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos' ||
+ ($^O eq 'os2' and not eval '$OS2::can_fork')) {
foreach (12..44) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
exit(0);
}