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 / suite.4th < prev    next >
Encoding:
Text File  |  1995-07-06  |  1.3 KB  |  88 lines
  1. \
  2. \ testsuite.4th ---    tests to verify the proper operation
  3. \            of the portable forth environment
  4. \ (duz 05Aug93)
  5. \
  6.  
  7. ONLY FORTH ALSO DEFINITIONS
  8.  
  9. CR
  10. CR .( running "tester.fr" and "core.fr")
  11. CR .( =================================)
  12. CR
  13.  
  14. MARKER FORGET-TESTER/CORE
  15. S" tester.fr" INCLUDED
  16. S" core.fr"   INCLUDED
  17. FORGET-TESTER/CORE
  18.  
  19. CR
  20. CR .( running checkans, a test for words missing from the ANS word sets)
  21. CR .( =================================================================)
  22. CR
  23. MARKER FORGET-CHECKANS
  24. S" checkans.fs" INCLUDED
  25. FORGET-CHECKANS
  26.  
  27.  
  28. CR
  29. CR .( testing pfe extensions:)
  30. EXTENSIONS ALSO FORTH
  31. INCLUDE defs.4th
  32. WAIT
  33.  
  34. \ display status and environment
  35. SHOW-STATUS
  36. WAIT
  37.  
  38. INCLUDE environ.4th
  39. WAIT
  40.  
  41. \ test help
  42. HELP FE.
  43. WAIT
  44.  
  45.  
  46. CR
  47. CR .( More tests:)
  48. CR .( ===========)
  49. CR
  50.  
  51. INCLUDE stack.4th    WAIT
  52. INCLUDE compare.4th    WAIT
  53. INCLUDE arith.4th    WAIT
  54. INCLUDE float.4th    WAIT
  55. INCLUDE exceptn.4th    WAIT
  56. INCLUDE string.4th    WAIT
  57. INCLUDE file.4th    WAIT
  58. INCLUDE intactv.4th    WAIT
  59.  
  60.  
  61. CR
  62. CR .( Do you want to try the block editor? ) KEY
  63. BL OR CHAR n <> [IF]  USING benchm.blk  1 EDIT-BLOCK  [THEN]
  64.  
  65.  
  66. CR
  67. CR .( Finally some benchmarks:)
  68. CR .( ========================)
  69. CR
  70.  
  71. USING benchm.blk 1 LOAD WAIT
  72.  
  73.  
  74. CR
  75. CR .( This should be nicely formatted FORTH-source:)
  76. CR .( =============================================)
  77. CR
  78.  
  79. SEE DO-PRIME        WAIT
  80.  
  81.  
  82. CR
  83. CR .( System survived so far?)
  84. CR .( Fine!)
  85. CR
  86.  
  87. CR BYE
  88.