X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=Test.obn;h=67a35e4ef616fb5f76e91b2f1cf9a5b60eb0ffbc;hp=d232953a80d3259d11c1a1987e2bd14d3a4c415c;hb=ba1a55241f3841d1254317d76d45322c85fb687b;hpb=b18a306febda9b321fadd6c828fb7abc392b40c4

diff --git a/Test.obn b/Test.obn
index d232953..67a35e4 100644
--- a/Test.obn
+++ b/Test.obn
@@ -1,14 +1,14 @@
 MODULE Test;
 
-IMPORT SYSTEM, Out;
-
-TYPE
-  R = RECORD END;
-
-VAR
-  i : INTEGER;
-  l : LONGINT;
+IMPORT Out;
 
 BEGIN
-  i := SYSTEM.VAL(INTEGER, l);
+  Out.String("A");
+  Out.Char("A");
+  Out.Ln;
+  ASSERT("A" = 041X);
+  ASSERT(041X = "A");
+  ASSERT(ORD("A") = 041H);
+  ASSERT(041H = ORD("A"));
+  ASSERT("A" = "A");
 END Test.