home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / icon / dos / src / tests / mem01x.icn < prev    next >
Text File  |  1992-02-09  |  676b  |  14 lines
  1. procedure main()
  2.    if (&features == "fixed regions") & not(&features == "multiple regions")
  3.       then {
  4.       write("This is a fixed-regions implementation without multiple-region")
  5.       write("support.\n")
  6.       write("The error message from this test should be different from the")
  7.       write("standard one, where regions can expand.  Specifically, this")
  8.       write("test should show inadequate space rather than value out of")
  9.       write("range.  This is to be expected; do not worry about it.")
  10.       }
  11.    write(image(every repl(repl("xxx",50),write(1 to 100))) | "failed")
  12.    write(image(repl(repl(repl(repl(&cset,100),100),100),100)) | "failed")
  13. end
  14.