home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / tests / general / errkwds.icn < prev    next >
Text File  |  2001-12-06  |  546b  |  26 lines
  1. #SRC: JCON
  2. #OPT: -fe
  3.  
  4. procedure main()
  5.     write(&error)
  6.     write(&errornumber | "fail")
  7.     write(&errortext | "fail")
  8.     write(image(&errorvalue) | "fail")
  9.     &error := 1
  10.     write(&error)
  11.     write(&null() | "fail")
  12.     write(&error)
  13.     write(&errornumber | "fail")
  14.     write(&errortext | "fail")
  15.     write(image(&errorvalue) | "fail")
  16.     write(&error)
  17.     write(&errornumber | "fail")
  18.     write(&errortext | "fail")
  19.     write(image(&errorvalue) | "fail")
  20.     errorclear()
  21.     write(&error)
  22.     write(&errornumber | "fail")
  23.     write(&errortext | "fail")
  24.     write(image(&errorvalue) | "fail")
  25. end
  26.