home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / test / file.4th < prev    next >
Encoding:
Text File  |  1995-04-15  |  1.1 KB  |  56 lines
  1. \
  2. \ file.4th --- test some file functions
  3. \ (duz 15Apr95)
  4. \
  5.  
  6. CR .( file access word set)
  7. CR .( ====================)
  8. CR
  9.  
  10. MARKER FORGET-FILE-TESTS
  11.  
  12. \ create a file
  13. : TEST-FN1  S" TESTFN1" ;
  14. : TEST-FN2  S" TESTFN2" ;
  15.  
  16. TEST-FN1 R/W CREATE-FILE . VALUE TEST-FILE
  17. D CR
  18.  
  19. \ after creation length = position = 0
  20. TEST-FILE FILE-POSITION D. .
  21. TEST-FILE FILE-SIZE D. .
  22. D CR
  23.  
  24. \ write something
  25. : TEST-TEXT S" THIS IS JUST SOME TEXT" ;
  26.  
  27. TEST-TEXT         TEST-FILE WRITE-FILE .
  28. TEST-TEXT NIP S>D TEST-FILE FILE-POSITION DROP D= Y
  29. D CR
  30.  
  31. \ read it back and compare it
  32. 0. TEST-FILE REPOSITION-FILE .
  33. PAD  DUP  TEST-TEXT NIP  TEST-FILE  READ-FILE .
  34. TEST-TEXT COMPARE .
  35. D CR
  36.  
  37.  
  38. \ resize the file
  39.  1024. TEST-FILE RESIZE-FILE . TEST-FILE FILE-SIZE .  1024. D= Y SPACE
  40. TEST-FILE FILE-POSITION . TEST-TEXT NIP S>D D= Y SPACE
  41.  
  42. 10240. TEST-FILE RESIZE-FILE . TEST-FILE FILE-SIZE . 10240. D= Y SPACE
  43.  2048. TEST-FILE RESIZE-FILE . TEST-FILE FILE-SIZE .  2048. D= Y SPACE
  44.   100. TEST-FILE RESIZE-FILE . TEST-FILE FILE-SIZE .   100. D= Y SPACE
  45. D CR
  46.  
  47. TEST-FILE CLOSE-FILE .
  48. TEST-FN1 TEST-FN2 RENAME-FILE .
  49.  
  50. TEST-FN2 FILE-STATUS . R/W = Y
  51. TEST-FN2 DELETE-FILE .
  52. D CR
  53.  
  54.  
  55. FORGET-FILE-TESTS
  56.