unittests/simpleagent.cos

   1 * unit tests for the simple agent stuff
   2 * fuzzie, 06/06/04
   3
   4 DBG: OUTS "# TEST: simpleagent: 9 tests"
   5 DBG: OUTS "1..9"
   6
   7 * test NULL
   8 SETA VA00 NULL
   9 DOIF VA00 eq NULL
  10  DBG: OUTS "ok 1"
  11 ELSE
  12  DBG: OUTS "not ok 1"
  13 ENDI
  14
  15 * test NEW: SIMP
  16 NEW: SIMP 3 2 1 "blnk" 1 0 0
  17 DOIF TARG eq NULL
  18  DBG: OUTS "not ok 2"
  19 ELSE
  20  DBG: OUTS "ok 2"
  21 ENDI
  22
  23 * test ATTR
  24 ATTR 3575 * all attributes relevant to agents
  25 DOIF ATTR eq 3575
  26  DBG: OUTS "ok 3"
  27 ELSE
  28  DBG: OUTS "not ok 3"
  29 ENDI
  30
  31 * test FMLY/SPCS/GNUS
  32 SETV VA00 0
  33 DOIF SPCS eq 1
  34  ADDV VA00 1
  35 ENDI
  36 DOIF GNUS eq 2
  37  ADDV VA00 1
  38 ENDI
  39 DOIF FMLY eq 3
  40  ADDV VA00 1
  41 ENDI
  42 DOIF VA00 eq 3
  43  DBG: OUTS "ok 4"
  44 ELSE
  45  DBG: OUTS "not ok 4"
  46 ENDI
  47
  48 * test OV00
  49 SETV OV00 1
  50 DOIF OV00 eq 1
  51  DBG: OUTS "ok 5"
  52 ELSE
  53  DBG: OUTS "not ok 5"
  54 ENDI
  55
  56 * test ENUM
  57 SETV VA00 0
  58 NEW: SIMP 3 2 1 "blnk" 1 0 0
  59 SETV OV00 2
  60 ENUM 3 2 1
  61  ADDV VA00 OV00
  62 NEXT
  63 DOIF VA00 eq 3
  64  DBG: OUTS "ok 6"
  65 ELSE
  66  DBG: OUTS "not ok 6"
  67 ENDI
  68
  69 * make sure TARG is reset after ENUM
  70 DOIF TARG eq NULL
  71  DBG: OUTS "ok 7"
  72 ELSE
  73  DBG: OUTS "not ok 7"
  74 ENDI
  75
  76 * make sure ENUM doesn't happen if there are no agents
  77 RTAR 3 2 1
  78 SETV VA00 0
  79 ENUM 20 25 65530
  80  SETV VA00 1
  81 NEXT
  82 DOIF VA00 eq 0
  83  DBG: OUTS "ok 8"
  84 ELSE
  85  DBG: OUTS "not ok 8"
  86 ENDI
  87
  88 * make sure TARG is reset after unsuccessful ENUM
  89 DOIF TARG eq NULL
  90  DBG: OUTS "ok 9"
  91 ELSE
  92  DBG: OUTS "not ok 9"
  93 ENDI