OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT

OBJECT=TXTMSG
TXTMSG:TYPE=TEXT
TXTMSG:VISIBLE=TRUE
TXTMSG:HYPERTEXT=
TXTMSG:FONT=ARIAL14
TXTMSG:TOCANVAS=TRUE
TXTMSG:RECT=0,0,800,600
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=CENTER
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE

OBJECT=TEST_BEH
TEST_BEH:TYPE=BEHAVIOUR
TEST_BEH:CODE={@RETURN(2);}

OBJECT=TEST_STRUCT
TEST_STRUCT:TYPE=STRUCT
TEST_STRUCT:FIELDS=NAME<STRING>,VAL<INTEGER>

OBJECT=TEST_DB
TEST_DB:TYPE=DATABASE
TEST_DB:MODEL=TEST_STRUCT

OBJECT=TEST1
TEST1:TYPE=BEHAVIOUR
TEST1:CODE={@RETURN([1+2*3]);}

OBJECT=TEST2
TEST2:TYPE=BEHAVIOUR
TEST2:CODE={@RETURN([[10-3]*[2+1]]);}

OBJECT=TEST3
TEST3:TYPE=BEHAVIOUR
TEST3:CODE={@RETURN([10%3]);}

OBJECT=TEST4
TEST4:TYPE=BEHAVIOUR
TEST4:CODE={@RETURN([2+2*2]);}

OBJECT=TEST5
TEST5:TYPE=BEHAVIOUR
TEST5:CODE={@RETURN([1.2+2.3]);}

OBJECT=TEST6
TEST6:TYPE=BEHAVIOUR
TEST6:CODE={@INT("A", 5); @RETURN([A + 2]);}

OBJECT=TEST7
TEST7:TYPE=BEHAVIOUR
TEST7:CODE={@STRING("TEST", "");@IF("1'1","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST8
TEST8:TYPE=BEHAVIOUR
TEST8:CODE={@STRING("TEST", "");@IF("TEST_BEH^RUN()'2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST9
TEST9:TYPE=BEHAVIOUR
TEST9:CODE={@STRING("TEST", "");@IF("TEST_BEH'2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST10
TEST10:TYPE=BEHAVIOUR
TEST10:CODE={@STRING("TEST", "");@IF("TEST_STRUCT|VAL'5","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST11
TEST11:TYPE=BEHAVIOUR
TEST11:CODE={@STRING("TEST", "");@IF("1","_","1","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST12
TEST12:TYPE=BEHAVIOUR
TEST12:CODE={@STRING("TEST", "");@IF("TEST_BEH^RUN()","_","2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST13
TEST13:TYPE=BEHAVIOUR
TEST13:CODE={@STRING("TEST", "");@IF("TEST_BEH","_","2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST14
TEST14:TYPE=BEHAVIOUR
TEST14:CODE={@STRING("TEST", "");@IF("TEST_STRUCT|VAL","_","5","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}

OBJECT=TEST15
TEST15:TYPE=BEHAVIOUR
TEST15:CODE={@INT("A",1);@INT("A",[A+1]);@RETURN(A);}

OBJECT=TEST16
TEST16:TYPE=BEHAVIOUR
TEST16:CODE={@INT("A",1);@INT("A",2);@RETURN(A);}

OBJECT=TEST17
TEST17:TYPE=BEHAVIOUR
TEST17:CODE={@INT("A",1);@INT("B",[A+1]);@RETURN(B);}

OBJECT=TEST18
TEST18:TYPE=BEHAVIOUR
TEST18:CODE={@INT("A",0);@INT("B",1);@INT("I",2);@INT("N",10);@INT("TMP",0);@LOOP("{TMP^SET(B);B^SET([A+B]);A^SET(TMP);}",I,[N-I+1],1);@RETURN(B);}

OBJECT=TEST19
TEST19:TYPE=BEHAVIOUR
TEST19:CODE={@INT("A",0);@INT("B",1);@INT("TMP",0);@LOOP("{TMP^SET(B);B^SET([A+B]);A^SET(TMP);}",2,9,1);@RETURN(B);}

OBJECT=TEST20
TEST20:TYPE=BEHAVIOUR
TEST20:CODE={@INT("B",0);@RETURN(B);B^SET(1);}

OBJECT=TEST21
TEST21:TYPE=BEHAVIOUR
TEST21:CODE={@INT("B",0);@RETURN(B);B^SET(1);@RETURN(B);B^SET(2);}

OBJECT=TEST22
TEST22:TYPE=BEHAVIOUR
TEST22:CODE={@INT("B",-420);B^ABS(-420);@RETURN(B);}

OBJECT=TEST_RESULTS
TEST_RESULTS:TYPE=STRING
TEST_RESULTS:VALUE=
TEST_RESULTS:ONBRUTALCHANGED={TXTMSG^SETTEXT(TEST_RESULTS^GET());}

OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TEST_DB^LOAD("TEST_DB.DTA");TEST_STRUCT^SET("TEST_DB_CURSOR");@LOOP("{@STRING("TEST_NAME", ["TEST"+_I_]);@STRING("RESULT", *TEST_NAME^RUN());TEST_RESULTS^ADD([TEST_NAME+"_"]);TEST_RESULTS^ADD([RESULT+"|"]);}",1,22,1);}