tests/Test19.obn

   1 MODULE Test19;
   2
   3 IMPORT Files, Out;
   4
   5 VAR
   6   f : Files.File;
   7   r : Files.Rider;
   8   len : LONGINT;
   9   x : POINTER TO ARRAY OF CHAR;
  10
  11 BEGIN
  12   f := Files.Old("tests/Test19.obn");
  13   ASSERT(f # NIL);
  14   Files.Set(r, f, 0);
  15
  16   len := Files.Length(f);
  17   NEW(x, len + 1);
  18
  19   Files.ReadBytes(r, x, len);
  20   Out.String(x^); Out.Ln;
  21 END Test19.
  22
  23 Тест модуля Files. Должно выводить содержимое файла Test19.obn.