X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=6fae5299c4ceb508ddf3708622d39e419e562a12;hb=0a98f4783fa8f0a7c1aaaf3dbeaf0aec8f4652b9;hp=da1f5453089ca918510c6b19e914ac2dbbf33d42;hpb=9b4f78290edb5f5bedeb12e683546fa00082f108;p=dsw-obn.git 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. - -Проверка встроенных процедур.