M2compiler-V3/compiler/tests/t_streamfile.mod

MODULE TStreamFile;
IMPORT StreamFile, ChanConsts, IOChan;
VAR cid : StreamFile.ChanId;
    res : StreamFile.OpenResults;
    ok  : INTEGER;
    ExitCode : INTEGER;
BEGIN
  ok := 0;
  StreamFile.Open(cid, "TStreamFile_tmp.tmp", StreamFile.write, res);
  IF (res = ChanConsts.opened) AND StreamFile.IsStreamFile(cid) THEN INC(ok) END;
  IOChan.WriteString(cid, "hello"); IOChan.WriteLn(cid);
  StreamFile.Close(cid);
  StreamFile.Open(cid, "TStreamFile_tmp.tmp", StreamFile.read, res);
  IF res = ChanConsts.opened THEN INC(ok) END;
  IF IOChan.ReadChar(cid) = "h" THEN INC(ok) END;
  StreamFile.Close(cid);
  StreamFile.Open(cid, "TStreamFile_tmp.tmp", StreamFile.raw, res);
  IF res = ChanConsts.wrongFlags THEN INC(ok) END;
  ExitCode := ok * 10 + 2
END TStreamFile.