home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / funnel / test_l.fws < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.2 KB  |  51 lines
  1. !===========================<Start of test_l Script>============================
  2. !
  3. ! Test With A Plain Listing File
  4. ! ------------------------------
  5. ! Inputs:
  6. !    $1 = Name of the .fw file to be tested (e.g. $1="sc01").
  7. !    $I = Directory containing .fw   files.
  8. !    $A = Directory containing Answer files.
  9. !    $O = Directory to place   Result files.
  10. !    $D = Name of the differences file.
  11. ! Outputs:
  12. !    Listing file.
  13. !    Appendage to differences file.
  14.  
  15. ! Announce this test.
  16. write ""
  17. write ""
  18. writeu "Performing Test $1"
  19.  
  20. ! Delete any previous output files.
  21. eneo $O$1.log
  22. eneo $O$1.lis
  23. eneo $O$1.tex
  24. eneo $O$1.out
  25.  
  26. ! Check input and answer files.
  27. exists $I$1.fw
  28. exists $A$1.lis
  29. absent $A$1.out
  30. absent $A$1.tex
  31.  
  32. ! Clean input and answer files.
  33. fixeols $I$1.fw
  34. fixeols $A$1.lis
  35.  
  36. ! Perform the actual FunnelWeb run.
  37. ! Tolerate means "don't abort on warning, error, or severe".
  38. tolerate
  39. fw $I$1.fw +l$O$1.lis
  40.  
  41. ! Ensure that only a listing file was generated.
  42. absent $O$1.log
  43. absent $O$1.tex
  44. absent $O$1.out
  45. exists $O$1.lis
  46.  
  47. ! Compare the listing file with the answer file.
  48. diff $O$1.lis $A$1.lis $D
  49.  
  50. !============================<End of Test_l Script>=============================
  51.