X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test11.obn;h=aba8cb4bae1d18d664dc202f963784ab443d51d2;hb=7b989fe6cfb3cf6e529b888bb6827714c45c62c6;hp=847fddfb9dcdf2b6a41579d0e2b995af2861f581;hpb=3d4021b9a2dd52aaf4b97859a8a58b74903ebac9;p=dsw-obn.git diff --git a/Test11.obn b/Test11.obn index 847fddf..aba8cb4 100644 --- a/Test11.obn +++ b/Test11.obn @@ -21,19 +21,8 @@ BEGIN Out.Real(pi, 0); Out.Ln; - IF 5 IN set THEN - Out.String("SET: Ok"); Out.Ln; - ELSE - Out.String("INVALID SET"); Out.Ln; - HALT(1); - END; - - IF bol THEN - Out.String("BOOLEAN: Ok"); Out.Ln; - ELSE - Out.String("INVALID BOOLEAN"); Out.Ln; - HALT(1); - END; + ASSERT(5 IN set); + ASSERT(bol); END Test11. Проверка свёртки констант.