tests/Test11.obn

   1 MODULE Test11;
   2
   3 IMPORT Out;
   4
   5 CONST
   6   im1 = -1;
   7   bol = ~FALSE;
   8   set = { 1, 2, 3..6 };
   9   fm1 = -1.0;
  10   dm1 = -1.0D0;
  11   inf = 4 IN set;
  12   rel = 10 = 100;
  13   pi = 4 / 1 - 4 / 3 + 4 / 5 - 4 / 7 + 4 / 9 - 4 / 11 + 4 / 13 - 4 / 15 + 4 / 17 - 4 / 19 + 4 / 21;
  14
  15 BEGIN
  16   Out.Open;
  17
  18   Out.Int(im1, 0); Out.Ln;
  19   Out.Real(fm1, 0); Out.Ln;
  20   Out.LongReal(dm1, 0); Out.Ln;
  21
  22   Out.Real(pi, 0); Out.Ln;
  23
  24   ASSERT(5 IN set);
  25   ASSERT(bol);
  26 END Test11.
  27
  28 Проверка свёртки констант.