home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / funnel / test_gen.fws < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.6 KB  |  59 lines
  1. !==========================<Start of test_gen Script>===========================
  2. !
  3. ! Generate Tricky Input Files
  4. ! ---------------------------
  5. ! This script processes the "generate.fw" test file which not only tests
  6. ! FunnelWeb to some extent, but also generates a few ".fw" input test
  7. ! files which are tested later on in the test suite process.
  8. !
  9. ! Inputs: None.
  10. ! Outputs:
  11. !    Listing file.
  12. !    Product files (which appear in the input $I directory as .fw files).
  13. !    Appendage to differences file.
  14.  
  15. ! Announce this test.
  16. write ""
  17. write ""
  18. writeu "Basic Test and Generate Some Tricky Input Files"
  19.  
  20. ! Delete any previous output files.
  21. eneo $Isc06.fw
  22. eneo $Isc08.fw
  23. eneo $Isc09.fw
  24. eneo $Isc13e.fwi
  25. eneo $Ogenerate.log
  26. eneo $Ogenerate.lis
  27. eneo $Ogenerate.tex
  28. eneo $Ogenerate.out
  29.  
  30. ! Check input and answer files.
  31. exists $Igenerate.fw
  32. exists $Agenerate.lis
  33. absent $Agenerate.out
  34. absent $Agenerate.tex
  35.  
  36. ! Clean input and answer files.
  37. fixeols $Igenerate.fw
  38. fixeols $Agenerate.lis
  39.  
  40. ! Perform the actual FunnelWeb run.
  41. fw $Igenerate.fw +L$Ogenerate.lis +O$I
  42.  
  43. ! Ensure that the correct files were generated.
  44. absent $Ogenerate.log
  45. absent $Ogenerate.tex
  46. absent $Ogenerate.out
  47. exists $Ogenerate.lis
  48. exists $Isc06.fw
  49. exists $Isc08.fw
  50. exists $Isc09.fw
  51. exists $Isc13e.fwi
  52.  
  53. ! Compare the listing file with the correct answer.
  54. ! We can't check the other files because of the original problem this whole
  55. ! generation script is designed to solve!
  56. diff $Ogenerate.lis $Agenerate.lis $D
  57.  
  58. !===========================<End of test_gen Script>============================
  59.