summaryrefslogtreecommitdiff
path: root/t/io
diff options
context:
space:
mode:
Diffstat (limited to 't/io')
-rwxr-xr-xt/io/argv.t9
-rwxr-xr-xt/io/dup.t2
-rwxr-xr-xt/io/fs.t18
-rwxr-xr-xt/io/inplace.t6
-rwxr-xr-xt/io/iprefix.t6
-rwxr-xr-xt/io/tell.t4
6 files changed, 33 insertions, 12 deletions
diff --git a/t/io/argv.t b/t/io/argv.t
index 2b8f23b426..5df3420dd9 100755
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -18,6 +18,9 @@ close try;
if ($^O eq 'MSWin32') {
$x = `.\\perl -e "while (<>) {print \$.,\$_;}" Io_argv1.tmp Io_argv1.tmp`;
}
+elsif ($^O eq 'NetWare') {
+ $x = `perl -e "while (<>) {print \$.,\$_;}" Io_argv1.tmp Io_argv1.tmp`;
+}
else {
$x = `./perl -e 'while (<>) {print \$.,\$_;}' Io_argv1.tmp Io_argv1.tmp`;
}
@@ -26,6 +29,9 @@ if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
if ($^O eq 'MSWin32') {
$x = `.\\perl -le "print 'foo'" | .\\perl -e "while (<>) {print \$_;}" Io_argv1.tmp -`;
}
+elsif ($^O eq 'NetWare') {
+ $x = `perl -le "print 'foo'" | perl -e "while (<>) {print \$_;}" Io_argv1.tmp -`;
+}
else {
$x = `echo foo|./perl -e 'while (<>) {print $_;}' Io_argv1.tmp -`;
}
@@ -34,6 +40,9 @@ if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
if ($^O eq 'MSWin32') {
$x = `.\\perl -le "print 'foo'" |.\\perl -e "while (<>) {print \$_;}"`;
}
+elsif ($^O eq 'NetWare') {
+ $x = `perl -le "print 'foo'" | perl -e "while (<>) {print \$_;}"`;
+}
else {
$x = `echo foo|./perl -e 'while (<>) {print $_;}'`;
}
diff --git a/t/io/dup.t b/t/io/dup.t
index 9b656ec8b3..a641db752a 100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -28,7 +28,7 @@ close(STDERR);
open(STDOUT,">&dupout");
open(STDERR,">&duperr");
-if ($^O eq 'MSWin32') { print `type Io.dup` }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print `type Io.dup` }
else { system 'cat Io.dup' }
unlink 'Io.dup';
diff --git a/t/io/fs.t b/t/io/fs.t
index c445d5e6bb..091bd44fb0 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -9,7 +9,7 @@ BEGIN {
use Config;
-$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
+$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or
$^O eq 'os2' or $^O eq 'mint');
if (defined &Win32::IsWinNT && Win32::IsWinNT()) {
@@ -18,17 +18,17 @@ if (defined &Win32::IsWinNT && Win32::IsWinNT()) {
print "1..29\n";
-$wd = (($^O eq 'MSWin32') ? `cd` : `pwd`);
+$wd = ((($^O eq 'MSWin32') || ($^O eq 'NetWare')) ? `cd` : `pwd`);
chop($wd);
-if ($^O eq 'MSWin32') { `rmdir /s /q tmp 2>nul`; `mkdir tmp`; }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { `rmdir /s /q tmp 2>nul`; `mkdir tmp`; }
else { `rm -f tmp 2>/dev/null; mkdir tmp 2>/dev/null`; }
chdir './tmp';
`/bin/rm -rf a b c x` if -x '/bin/rm';
umask(022);
-if ($^O eq 'MSWin32') { print "ok 1 # skipped: bogus umask()\n"; }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print "ok 1 # skipped: bogus umask()\n"; }
elsif ((umask(0)&0777) == 022) {print "ok 1\n";} else {print "not ok 1\n";}
open(fh,'>x') || die "Can't create x";
close(fh);
@@ -58,7 +58,7 @@ elsif (($mode & 0777) == 0666)
{print "ok 5\n";}
else {print "not ok 5\n";}
-$newmode = $^O eq 'MSWin32' ? 0444 : 0777;
+$newmode = (($^O eq 'MSWin32') || ($^O eq 'NetWare')) ? 0444 : 0777;
if ((chmod $newmode,'a') == 1) {print "ok 6\n";} else {print "not ok 6\n";}
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
@@ -68,7 +68,7 @@ elsif (($mode & 0777) == $newmode) {print "ok 7\n";}
else {print "not ok 7\n";}
$newmode = 0700;
-if ($^O eq 'MSWin32') {
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) {
chmod 0444, 'x';
$newmode = 0666;
}
@@ -109,9 +109,9 @@ $foo = (utime 500000000,500000000 + $delta,'b');
if ($foo == 1) {print "ok 16\n";} else {print "not ok 16 $foo\n";}
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat('b');
-if ($^O eq 'MSWin32') { print "ok 17 # skipped: bogus (stat)[1]\n"; }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print "ok 17 # skipped: bogus (stat)[1]\n"; }
elsif ($ino) {print "ok 17\n";} else {print "not ok 17\n";}
-if ($wd =~ m#$Config{'afsroot'}/# || $^O eq 'amigaos' || $^O eq 'dos' || $^O eq 'MSWin32')
+if ($wd =~ m#$Config{'afsroot'}/# || $^O eq 'amigaos' || $^O eq 'dos' || $^O eq 'MSWin32' || $^O eq 'NetWare')
{print "ok 18 # skipped: granularity of the filetime\n";}
elsif ($atime == 500000000 && $mtime == 500000000 + $delta)
{print "ok 18\n";}
@@ -135,7 +135,7 @@ unlink 'c';
chdir $wd || die "Can't cd back to $wd";
unlink 'c';
-if ($^O ne 'MSWin32' and `ls -l perl 2>/dev/null` =~ /^l.*->/) {
+if ((($^O eq 'MSWin32') || ($^O eq 'NetWare')) and `ls -l perl 2>/dev/null` =~ /^l.*->/) {
# we have symbolic links
system("cp TEST TEST$$");
# we have to copy because e.g. GNU grep gets huffy if we have
diff --git a/t/io/inplace.t b/t/io/inplace.t
index ff410a7b5f..4582cc232a 100755
--- a/t/io/inplace.t
+++ b/t/io/inplace.t
@@ -13,6 +13,12 @@ if ($^O eq 'MSWin32') {
`.\\perl -le "print 'foo'" > .b`;
`.\\perl -le "print 'foo'" > .c`;
}
+elsif ($^O eq 'NetWare') {
+ $CAT = 'perl -e "print<>"';
+ `perl -le "print 'foo'" > .a`;
+ `perl -le "print 'foo'" > .b`;
+ `perl -le "print 'foo'" > .c`;
+}
elsif ($^O eq 'VMS') {
$CAT = 'MCR []perl. -e "print<>"';
`MCR []perl. -le "print 'foo'" > ./.a`;
diff --git a/t/io/iprefix.t b/t/io/iprefix.t
index 10a5c5f686..6070223454 100755
--- a/t/io/iprefix.t
+++ b/t/io/iprefix.t
@@ -13,6 +13,12 @@ if ($^O eq 'MSWin32') {
`.\\perl -le "print 'foo'" > .b`;
`.\\perl -le "print 'foo'" > .c`;
}
+elsif ($^O eq 'NetWare') {
+ $CAT = 'perl -e "print<>"';
+ `perl -le "print 'foo'" > .a`;
+ `perl -le "print 'foo'" > .b`;
+ `perl -le "print 'foo'" > .c`;
+}
elsif ($^O eq 'VMS') {
$CAT = 'MCR []perl. -e "print<>"';
`MCR []perl. -le "print 'foo'" > ./.a`;
diff --git a/t/io/tell.t b/t/io/tell.t
index c840c9232a..f2336dd631 100755
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -6,7 +6,7 @@ print "1..23\n";
$TST = 'tst';
-$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
+$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or
$^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin');
open($TST, 'harness') || (die "Can't open harness");
@@ -50,7 +50,7 @@ if ($. == 0) { print "not ok 14\n"; } else { print "ok 14\n"; }
$curline = $.;
open(other, 'harness') || (die "Can't open harness: $!");
-binmode other if $^O eq 'MSWin32';
+binmode other if (($^O eq 'MSWin32') || ($^O eq 'NetWare'));
{
local($.);
View Lorry Controller Status