diff options
author | Chip Salzenberg <chip@perl.com> | 1997-02-18 10:29:53 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-22 04:41:00 +1200 |
commit | ea368a7c10bc6e18dd8f876577b54cc646eff77e (patch) | |
tree | 304284b41539f84281642a7a94bca5114ac728a3 /t/io | |
parent | b002077ab466278de0992f4fa3a3355ea90fa690 (diff) | |
download | perl-ea368a7c10bc6e18dd8f876577b54cc646eff77e.tar.gz |
Tweak tests to notice $dont_use_nlink
Diffstat (limited to 't/io')
-rwxr-xr-x | t/io/fs.t | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -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";} |