home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / ntcode / ntperlb / t / io / fs.nt < prev    next >
Encoding:
Text File  |  1995-05-19  |  1.9 KB  |  73 lines
  1. #!./perl
  2.  
  3. # $RCSfile: fs.t,v $$Revision: 4.0.1.1 $$Date: 1993/02/05 19:44:34 $
  4.  
  5. print "1..10\n";
  6.  
  7. $wd = `cd`;
  8. chop($wd);
  9.  
  10. if (-d 'tmp') {
  11.     @tmp = <tmp/*>;
  12.     foreach (@tmp) {
  13.     unlink($_);
  14.     }
  15.     rmdir('tmp');
  16. }
  17.  
  18. `mkdir tmp`;
  19. chdir '.\\tmp';
  20.  
  21. system "del/s/f/q a b c x >nul: 2>&1";
  22.  
  23. open(fh,'>x') || die "Can't create x";
  24. close(fh);
  25. open(fh,'>a') || die "Can't create a";
  26. close(fh);
  27.  
  28. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  29.     $blksize,$blocks) = stat('a');
  30. print "ok 1\n";
  31.  
  32. if (($mode & 0777) == 0666) {print "ok 2\n";} else {print "not ok 2\n";}
  33.  
  34. if ((chmod 0444,'a') == 1) {print "ok 3\n";} else {print "not ok 3\n";}
  35.  
  36. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  37.     $blksize,$blocks) = stat('a');
  38.  
  39. if (($mode & 0777) == 0444) {print "ok 4\n";} else {print "not ok 4\n";}
  40.  
  41. if ((unlink 'x') == 1) {print "ok 5\n";} else {print "not ok 5\n";}
  42.  
  43. if (rename('a','b')) {print "ok 6\n";} else {print "not ok 6\n";}
  44. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  45.     $blksize,$blocks) = stat('a');
  46. if ($ino == 0) {print "ok 7\n";} else {print "not ok 7\n";}
  47.  
  48.  
  49. if ((chmod 0666,'b') == 1) {print "ok 8\n";} else {print "not ok 8\n";}
  50.  
  51. #$foo = (utime 500000000,500000001,'b');
  52. #if ($foo == 1) {print "ok 16\n";} else {print "not ok 16 $foo\n";}
  53. #($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  54. #    $blksize,$blocks) = stat('b');
  55. #if ($dev) {print "ok 17\n";} else {print "not ok 17\n";}
  56. #if ($atime == 500000000 && $mtime == 500000001)
  57. #    {print "ok 18\n";}
  58. #else
  59. #    {print "not ok 18 $atime $mtime\n";}
  60.  
  61.  
  62. if ((unlink 'b') == 1) {print "ok 9\n";} else {print "not ok 9\n";}
  63. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  64.     $blksize,$blocks) = stat('b');
  65. if ($ino == 0) {print "ok 10\n";} else {print "not ok 10\n";}
  66.  
  67. unlink 'c';
  68.  
  69. chdir $wd || die "Can't cd back to $wd";
  70.  
  71. unlink 'c';
  72.  
  73.