tests/Test15.obn

   1 MODULE Test15;
   2
   3 VAR
   4   x : ARRAY 10 OF INTEGER;
   5   p : POINTER TO ARRAY OF ARRAY OF INTEGER;
   6
   7 BEGIN
   8   NEW(p, 20, 30);
   9   ASSERT(LEN(x, 0) = 10);
  10   ASSERT(LEN(p^, 0) = 20);
  11   ASSERT(LEN(p^, 1) = 30);
  12 END Test15.
  13
  14 Тест LEN.