tests/Test12.obn

   1 MODULE Test12;
   2
   3 IMPORT SYSTEM, Out;
   4
   5 CONST
   6   xConI = -33;
   7   xConJ = 33;
   8   nConK = -5;
   9   nConL = 5;
  10
  11 VAR
  12   i, j : HUGEINT;
  13
  14 PROCEDURE Chk(a, b : HUGEINT);
  15 BEGIN
  16   Out.Int(a, 0); Out.String(" = "); Out.Int(b, 0); Out.Ln;
  17   ASSERT(a = b);
  18 END Chk;
  19
  20 BEGIN
  21   i := xConI;
  22   j := xConJ;
  23
  24   Chk(ASH(i, nConK), ASH(xConI, nConK));
  25   Chk(ASH(i, nConL), ASH(xConI, nConL));
  26   Chk(ASH(j, nConK), ASH(xConJ, nConK));
  27   Chk(ASH(j, nConL), ASH(xConJ, nConL));
  28
  29   Chk(SYSTEM.LSH(i, nConK), SYSTEM.LSH(xConI, nConK));
  30   Chk(SYSTEM.LSH(i, nConL), SYSTEM.LSH(xConI, nConL));
  31   Chk(SYSTEM.LSH(j, nConK), SYSTEM.LSH(xConJ, nConK));
  32   Chk(SYSTEM.LSH(j, nConL), SYSTEM.LSH(xConJ, nConL));
  33
  34   Chk(SYSTEM.ROT(i, nConK), SYSTEM.ROT(xConI, nConK));
  35   Chk(SYSTEM.ROT(i, nConL), SYSTEM.ROT(xConI, nConL));
  36   Chk(SYSTEM.ROT(j, nConK), SYSTEM.ROT(xConJ, nConK));
  37   Chk(SYSTEM.ROT(j, nConL), SYSTEM.ROT(xConJ, nConL));
  38 END Test12.
  39
  40 Проверка сдвигов.