OBJECT=ARIAL14 ARIAL14:TYPE=FONT ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT OBJECT=BEHNO BEHNO:TYPE=INTEGER BEHNO:VALUE=1 OBJECT=TEST_SET TEST_SET:TYPE=INTEGER TEST_SET:VALUE=1 OBJECT=KEYBOARD KEYBOARD:TYPE=KEYBOARD KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("STRUCT_TEST");} KEYBOARD:ONKEYDOWN^RIGHT={DEBUG_VALUE^INC();DEBUG^GOTO("LOGIC_TEST");} KEYBOARD:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});} KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","12","{BEHNO^INC();}","");@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});} KEYBOARD:ONKEYDOWN^1={TEST_SET^SET(1);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});} KEYBOARD:ONKEYDOWN^2={TEST_SET^SET(2);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});} KEYBOARD:ONKEYDOWN^3={TEST_SET^SET(3);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});} KEYBOARD:ONKEYDOWN^4={TEST_SET^SET(4);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});} KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();} OBJECT=TEST TEST:TYPE=STRING TEST:VALUE=Test OBJECT=TEST2 TEST2:TYPE=BOOL TEST2:VALUE=TRUE OBJECT=TEST3 TEST3:TYPE=DOUBLE TEST3:VALUE=1.5 OBJECT=TEST4 TEST4:TYPE=INTEGER TEST4:VALUE=1 OBJECT=TEST_COMPARE TEST_COMPARE:TYPE=STRING TEST_COMPARE:VALUE=Test OBJECT=TEST2_COMPARE TEST2_COMPARE:TYPE=BOOL TEST2_COMPARE:VALUE=TRUE OBJECT=TEST3_COMPARE TEST3_COMPARE:TYPE=DOUBLE TEST3_COMPARE:VALUE=1.5 OBJECT=TEST4_COMPARE TEST4_COMPARE:TYPE=INTEGER TEST4_COMPARE:VALUE=1 OBJECT=TXTMSG TXTMSG:TYPE=TEXT TXTMSG:VISIBLE=TRUE TXTMSG:HYPERTEXT= TXTMSG:FONT=ARIAL14 TXTMSG:TOCANVAS=TRUE TXTMSG:RECT=0,0,800,250 TXTMSG:PRIORITY=10000 TXTMSG:HJUSTIFY=FALSE TXTMSG:VJUSTIFY=TOP TXTMSG:MONITORCOLLISION=FALSE TXTMSG:MONITORCOLLISIONALPHA=FALSE OBJECT=TXTMSG2 TXTMSG2:TYPE=TEXT TXTMSG2:VISIBLE=TRUE TXTMSG2:HYPERTEXT= TXTMSG2:FONT=ARIAL14 TXTMSG2:TOCANVAS=TRUE TXTMSG2:RECT=0,0,800,250 TXTMSG2:PRIORITY=10000 TXTMSG2:HJUSTIFY=LEFT TXTMSG2:VJUSTIFY=BOTTOM TXTMSG2:MONITORCOLLISION=FALSE TXTMSG2:MONITORCOLLISIONALPHA=FALSE OBJECT=TXTMSG3 TXTMSG3:TYPE=TEXT TXTMSG3:VISIBLE=TRUE TXTMSG3:HYPERTEXT= TXTMSG3:FONT=ARIAL14 TXTMSG3:TOCANVAS=TRUE TXTMSG3:RECT=0,0,800,250 TXTMSG3:PRIORITY=10000 TXTMSG3:HJUSTIFY=RIGHT TXTMSG3:VJUSTIFY=BOTTOM TXTMSG3:MONITORCOLLISION=FALSE TXTMSG3:MONITORCOLLISIONALPHA=FALSE OBJECT=TEMP_BOOL TEMP_BOOL:TYPE=BOOL TEMP_BOOL:VALUE=FALSE OBJECT=DEBUG_TXT DEBUG_TXT:TYPE=STRING DEBUG_TXT:VALUE="" OBJECT=DEBUG_TXT2 DEBUG_TXT2:TYPE=STRING OBJECT=BEH_APPEND_TEXT BEH_APPEND_TEXT:TYPE=BEHAVIOUR BEH_APPEND_TEXT:CODE={$1^SET([$1^GET(0, $1^LENGTH())+"|"+$2]);} OBJECT=BEH_SET_TRUE BEH_SET_TRUE:TYPE=BEHAVIOUR BEH_SET_TRUE:CODE={TEMP_BOOL^SET(TRUE);} OBJECT=BEH_SET_FALSE BEH_SET_FALSE:TYPE=BEHAVIOUR BEH_SET_FALSE:CODE={TEMP_BOOL^SET(FALSE);} OBJECT=BEH_SWITCH_TEST_SETS BEH_SWITCH_TEST_SETS:TYPE=BEHAVIOUR BEH_SWITCH_TEST_SETS:CODE={@IF("TEST_SET", "_", "1", {TEST_COMPARE^SET("Test");TEST2_COMPARE^SET(TRUE);TEST3_COMPARE^SET(1.5);TEST4_COMPARE^SET(1);}, {@IF("TEST_SET", "_", "2", {TEST_COMPARE^SET("Test2");TEST2_COMPARE^SET(FALSE);TEST3_COMPARE^SET(2.5);TEST4_COMPARE^SET(3);}, {@IF("TEST_SET", "_", "3", {TEST_COMPARE^SET("3");TEST2_COMPARE^SET(2);TEST3_COMPARE^SET(-2.5);TEST4_COMPARE^SET(-3);}, {TEST_COMPARE^SET("TEST3");TEST2_COMPARE^SET(0);TEST3_COMPARE^SET(1.00001);TEST4_COMPARE^SET(-5);});});});} OBJECT=BEH_SWITCH_TEST_SETS2 BEH_SWITCH_TEST_SETS2:TYPE=BEHAVIOUR BEH_SWITCH_TEST_SETS2:CODE={@IF("TEST_SET", "_", "4", {TEST^SET("Zzz");TEST2^SET(FALSE);TEST3^SET(6.5);TEST4^SET(1);}, {TEST^SET("Test");TEST2^SET(TRUE);TEST3^SET(1.5);TEST4^SET(1);});} OBJECT=MATHTEST1 MATHTEST1:TYPE=BEHAVIOUR MATHTEST1:CODE={TXTMSG2^SETTEXT([TEST_DODAWANIA+"|"+BOOL_Z_BOOLEM__+[TEST2+TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2+TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2+TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2+TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST+TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST+TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST+TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST+TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4+TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4+TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4+TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4+TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3+TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3+TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3+TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3+TEST2_COMPARE]]);} MATHTEST1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DODAWANIU OBJECT=MATHTEST2 MATHTEST2:TYPE=BEHAVIOUR MATHTEST2:CODE={TXTMSG2^SETTEXT([TEST_ODEJMOWANIA+"|"+BOOL_Z_BOOLEM__+[TEST2-TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2-TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2-TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2-TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST-TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST-TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST-TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST-TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4-TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4-TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4-TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4-TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3-TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3-TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3-TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3-TEST2_COMPARE]]);} MATHTEST2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_ODEJMOWANIU OBJECT=MATHTEST3 MATHTEST3:TYPE=BEHAVIOUR MATHTEST3:CODE={TXTMSG2^SETTEXT([TEST_MNOZENIA+"|"+BOOL_Z_BOOLEM__+[TEST2*TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2*TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2*TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2*TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST*TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST*TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST*TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST*TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4*TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4*TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4*TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4*TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3*TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3*TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3*TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3*TEST2_COMPARE]]);} MATHTEST3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MNOZENIU OBJECT=MATHTEST4_1 MATHTEST4_1:TYPE=BEHAVIOUR MATHTEST4_1:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[TEST2@TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST@TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4@TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3@TEST2_COMPARE]]);} MATHTEST4_1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST4_2 MATHTEST4_2:TYPE=BEHAVIOUR MATHTEST4_2:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);} MATHTEST4_2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST4_3 MATHTEST4_3:TYPE=BEHAVIOUR MATHTEST4_3:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[TEST2@TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2@TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST@TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST@TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4@TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4@TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3@TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3@TEST2_COMPARE]]);} MATHTEST4_3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST4_4 MATHTEST4_4:TYPE=BEHAVIOUR MATHTEST4_4:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);} MATHTEST4_4:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST5_1 MATHTEST5_1:TYPE=BEHAVIOUR MATHTEST5_1:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[TEST2%TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST%TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4%TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3%TEST2_COMPARE]]);} MATHTEST5_1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST5_2 MATHTEST5_2:TYPE=BEHAVIOUR MATHTEST5_2:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);} MATHTEST5_2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST5_3 MATHTEST5_3:TYPE=BEHAVIOUR MATHTEST5_3:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[TEST2%TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2%TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST%TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST%TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4%TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4%TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3%TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3%TEST2_COMPARE]]);} MATHTEST5_3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST5_4 MATHTEST5_4:TYPE=BEHAVIOUR MATHTEST5_4:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);} MATHTEST5_4:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA OBJECT=MATHTEST6 MATHTEST6:TYPE=BEHAVIOUR MATHTEST6:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_JEST_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);} MATHTEST6:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_JEST_ROWNE OBJECT=MATHTEST7 MATHTEST7:TYPE=BEHAVIOUR MATHTEST7:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_NIE_JEST_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);} MATHTEST7:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_NIE_JEST_ROWNE OBJECT=MATHTEST8 MATHTEST8:TYPE=BEHAVIOUR MATHTEST8:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_MNIEJSZE_LUB_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);} MATHTEST8:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_MNIEJSZE_LUB_ROWNE OBJECT=MATHTEST9 MATHTEST9:TYPE=BEHAVIOUR MATHTEST9:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_MNIEJSZE_NIZ]);DEBUG_TXT2^SET("");@IF("TEST2", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);} MATHTEST9:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_MNIEJSZE_NIZ OBJECT=MATHTEST10 MATHTEST10:TYPE=BEHAVIOUR MATHTEST10:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_WIEKSZE_LUB_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);} MATHTEST10:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_LUB_ROWNE OBJECT=MATHTEST11 MATHTEST11:TYPE=BEHAVIOUR MATHTEST11:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_WIEKSZE_NIZ]);DEBUG_TXT2^SET("");@IF("TEST2", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);} MATHTEST11:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_NIZ OBJECT=MATHTEST12 MATHTEST12:TYPE=BEHAVIOUR MATHTEST12:CODE={DEBUG_TXT^SET([TEST_WYSWIETLANIA_WARTOSCI]);DEBUG_TXT2^SET("");@DOUBLE("VALUE1", 0.25252525);@DOUBLE("VALUE2", 0.52525252);DEBUG_TXT2^ADD(VALUE1);DEBUG_TXT2^ADD(["|"+VALUE2]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);} MATHTEST12:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_NIZ OBJECT=__INIT__ __INIT__:TYPE=BEHAVIOUR __INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_obliczen"]);TXTMSG^SHOW();TXTMSG2^SHOW();TXTMSG3^SHOW();MATHTEST1^RUN();}