summaryrefslogtreecommitdiff
path: root/t/io
diff options
context:
space:
mode:
authorChip Salzenberg <chip@perl.com>1997-02-18 10:29:53 +1200
committerChip Salzenberg <chip@atlantic.net>1997-02-22 04:41:00 +1200
commitea368a7c10bc6e18dd8f876577b54cc646eff77e (patch)
tree304284b41539f84281642a7a94bca5114ac728a3 /t/io
parentb002077ab466278de0992f4fa3a3355ea90fa690 (diff)
downloadperl-ea368a7c10bc6e18dd8f876577b54cc646eff77e.tar.gz
Tweak tests to notice $dont_use_nlink
Diffstat (limited to 't/io')
-rwxr-xr-xt/io/fs.t11
1 files changed, 10 insertions, 1 deletions
diff --git a/t/io/fs.t b/t/io/fs.t
index dc29fda4d9..ce4e56bb9e 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -2,6 +2,13 @@
# $RCSfile: fs.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:28 $
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+}
+
+use Config;
+
print "1..26\n";
$wd = `pwd`;
@@ -26,7 +33,9 @@ if (eval {link('b','c')}) {print "ok 3\n";} else {print "not ok 3\n";}
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat('c');
-if ($nlink == 3) {print "ok 4\n";} else {print "not ok 4\n";}
+if ($Config{dont_use_nlink} || $nlink == 3)
+ {print "ok 4\n";} else {print "not ok 4\n";}
+
if (($mode & 0777) == 0666) {print "ok 5\n";} else {print "not ok 5\n";}
if ((chmod 0777,'a') == 1) {print "ok 6\n";} else {print "not ok 6\n";}