X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=f47edbbb416fd2154a0f16c7bfbaf310923269bc;hb=ab13caca4af9fb7617a6dfeaaec3b250c5bda0ac;hp=4f539100d6439b048d2ea9800b769c3be98a24a2;hpb=496b7b4a5162004e33dfd3328aee7d155342f09f;p=dsw-obn.git diff --git a/Test.obn b/Test.obn index 4f53910..f47edbb 100644 --- a/Test.obn +++ b/Test.obn @@ -1,14 +1,23 @@ MODULE Test; -IMPORT Out; +IMPORT Files; + +TYPE + String = POINTER TO ARRAY OF CHAR; + R* = RECORD ch : CHAR END; VAR - f : BOOLEAN; - r, e : POINTER TO RECORD END; + f : Files.File; + r : Files.Rider; + m : R; + s : String; BEGIN - f := r = e; - IF f THEN - Out.String('Yes'); Out.Ln; - END; + f := Files.Old("Test.obn"); + ASSERT(f # NIL); + Files.Set(r, f, 0); + + Files.Read(r, m.ch); + + ASSERT(s = NIL); END Test.