X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=Test.obn;h=6fae5299c4ceb508ddf3708622d39e419e562a12;hp=da1f5453089ca918510c6b19e914ac2dbbf33d42;hb=8212ec191c6700e5f0ceb7600b6d30441ca2bc88;hpb=9b4f78290edb5f5bedeb12e683546fa00082f108 diff --git a/Test.obn b/Test.obn index da1f545..6fae529 100644 --- a/Test.obn +++ b/Test.obn @@ -1,19 +1,3 @@ MODULE Test; -VAR - i : INTEGER; - s : SET; - -BEGIN - INC(i); - ASSERT(i = 1); - DEC(i); - ASSERT(i = 0); - - INCL(s, 3); - ASSERT(3 IN s); - EXCL(s, 3); - ASSERT(~(3 IN s)); END Test. - -Проверка встроенных процедур.