X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=67a35e4ef616fb5f76e91b2f1cf9a5b60eb0ffbc;hb=ba1a55241f3841d1254317d76d45322c85fb687b;hp=babecff95eba9648125ff9e686de586d643d366e;hpb=95acec6c3ae8d3c324c84b001a680aa49320790b;p=dsw-obn.git diff --git a/Test.obn b/Test.obn index babecff..67a35e4 100644 --- a/Test.obn +++ b/Test.obn @@ -1,5 +1,14 @@ MODULE Test; +IMPORT Out; + BEGIN - ASSERT(ODD(5)); + 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.