home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug141.arc / IF.LBR / IFTEST.SQB / IFTEST.SUB
Text File  |  1979-12-31  |  1KB  |  64 lines
  1. ; running iftest.sub
  2. ; you should get the numbers 1-11 on the screen
  3. save 0 empty
  4. save 1 notempty
  5. era dummy
  6. if ambig *.*
  7.    ; 1
  8. else
  9.    ; (ambig failed on true) <-----------<<<<
  10. endif
  11. if ambig dummy
  12.    ; (ambig failed on false) <-------------<<<<
  13. else
  14.    ; 2
  15. endif
  16. if exists empty
  17.    ; 3
  18. else
  19.    ; (exists failed on true) <-----------<<<<
  20. endif
  21. if exists dummy
  22.    ; (exists failed on false) <-------------<<<<
  23. else
  24.    ; 4
  25. endif
  26. if Missing dummy
  27.    ; 5
  28. else
  29.    ; (missing failed on true) <-----------<<<<
  30. endif
  31. if Missing empty
  32.    ; (missing failed on false) <-------------<<<<
  33. else
  34.    ; 6
  35. endif
  36. if null
  37.    ; 7
  38. else
  39.    ; (null failed on true) <--------------<<<<
  40. endif
  41. if null notnull
  42.    ; (null failed on false) <-------------<<<<
  43. else
  44.    ; 8
  45. endif
  46. if zero dummy
  47.    ; 9
  48. else
  49.    ; (zero failed on non existant file) <-----------<<<<
  50. endif
  51. if zero empty
  52.    ; 10
  53. else
  54.    ; (zero failed on empty file) <-----------<<<<
  55. endif
  56. if zero notempty
  57.    ; (zero failed on false) <-------------<<<<
  58. else
  59.    ; 11
  60. endif
  61. era empty
  62. era notempty
  63. ;              all done !!
  64.