unittests/variables.cos

   1 * unit tests for variables
   2 * fuzzie, 06/06/04
   3
   4 DBG: OUTS "# TEST: variables: 8 tests"
   5 DBG: OUTS "1..8"
   6
   7 * test setv
   8 SETV VA00 1
   9 DOIF VA00 eq 1
  10  DBG: OUTS "ok 1"
  11 ELSE
  12  DBG: OUTS "not ok 1"
  13 ENDI
  14
  15 * test subv
  16 SETV VA00 4
  17 SUBV VA00 2
  18 DOIF VA00 eq 2
  19  DBG: OUTS "ok 2"
  20 ELSE
  21  DBG: OUTS "not ok 2"
  22 ENDI
  23
  24 * test addv
  25 SETV VA00 4
  26 ADDV VA00 2
  27 DOIF VA00 eq 6
  28  DBG: OUTS "ok 3"
  29 ELSE
  30  DBG: OUTS "not ok 3"
  31 ENDI
  32
  33 * test mulv
  34 SETV VA00 4
  35 MULV VA00 2
  36 DOIF VA00 eq 8
  37  DBG: OUTS "ok 4"
  38 ELSE
  39  DBG: OUTS "not ok 4"
  40 ENDI
  41
  42 * test negv
  43 SETV VA00 4
  44 NEGV VA00
  45 DOIF VA00 eq -4
  46  DBG: OUTS "ok 5"
  47 ELSE
  48  DBG: OUTS "not ok 5"
  49 ENDI
  50
  51 * test modv
  52 SETV VA00 7
  53 MODV VA00 2
  54 DOIF VA00 eq 1
  55  DBG: OUTS "ok 6"
  56 ELSE
  57  DBG: OUTS "not ok 6"
  58 ENDI
  59
  60 * test that you can have independent va00/va01
  61 SETV VA01 8
  62 SETV VA00 7
  63 DOIF VA01 eq 8 AND VA00 eq 7
  64  DBG: OUTS "ok 7"
  65 ELSE
  66  DBG: OUTS "not ok 7"
  67 ENDI
  68
  69 * test setv with va00/va01, from nornagon
  70 SETV VA00 1
  71 SETV VA01 0
  72 SETV VA00 VA01
  73 DOIF VA00 eq VA01
  74  DBG: OUTS "ok 8"
  75 ELSE
  76  DBG: OUTS "not ok 8"
  77 ENDI