unittests/file.cos

   1 dbg: outs "# Files"
   2 dbg: outs "1..3"
   3
   4 file oope 1 "testfile" 0
   5 outs "hello\n"
   6 outv 2
   7 outs "\n"
   8 outv 5.0
   9 file oclo
  10
  11 file iope 1 "testfile"
  12 sets va00 innl
  13 doif va00 eq "hello"
  14         dbg: outs "ok 1 - innl"
  15 else
  16         dbg: outs "not ok 1 - innl"
  17 endi
  18 setv va00 inni
  19 doif va00 eq 2
  20         dbg: outs "ok 2 - inni"
  21 else
  22         dbg: outs "not ok 2 - inni"
  23 endi
  24 setv va00 innf
  25 doif va00 eq 5.0
  26         dbg: outs "ok 3 - innf"
  27 else
  28         dbg: outs "not ok 3 - innf"
  29 endi
  30 file iclo
  31