tests/Test20.obn

   1 MODULE Test20;
   2
   3 IMPORT Out;
   4
   5 VAR
   6   ch : CHAR;
   7
   8 BEGIN
   9   ch := "A";
  10   Out.String("A");
  11   Out.Char("A");
  12   Out.Ln;
  13   ASSERT("A" = 041X);
  14   ASSERT(041X = "A");
  15   ASSERT(ORD("A") = 041H);
  16   ASSERT(041H = ORD("A"));
  17   ASSERT("A" = "A");
  18 END Test20.
  19
  20 Тест конверсии строки единичного размера в символ.