tools/t32/test.cmm

   1 // Copyright ArcCore AB\r
   2 // \r
   3 // DESCRIPTION \r
   4 //   A simple testscript that runs all the test-suite located in the \r
   5 //   system/kernel/testsystem folder (it looks for the binaries in \r
   6 //   the "binaries" folder)\r
   7 \r
   8 // Make the !run() command work\r
   9 screen.always\r
  10 LOCAL &datafile &file &rfile &data &tmpfile &stop &testfiles\r
  11 \r
  12 &stop="no"\r
  13 &datafile="va1.txt"\r
  14 &rfile="test_result.txt"\r
  15 &testfiles=0.\r
  16 \r
  17 &tdir="&cfg_project_path_g\binaries\*osek*.elf"\r
  18 os cmd /c dir &tdir/B /O:N > &datafile\r
  19 &tdir="&cfg_project_path_g\binaries\*os_*.elf"\r
  20 os cmd /c dir &tdir/B /O:N >> &datafile\r
  21 \r
  22 \r
  23 os cmd /c del &rfile\r
  24 os cmd /c echo "" > &rfile\r
  25 wait 100ms\r
  26 \r
  27 // Start file at #10 to make space for others to use #1..#9\r
  28 OPEN #10 &datafile /read\r
  29 READ #10 &data\r
  30 WHILE "&data"!=""\r
  31 ( \r
  32 //      &file="&cfg_project_path_g"+"/binaries/system_kernel_testsystem_"+"&data"+".elf"\r
  33         &file="&cfg_project_path_g"+"/binaries/"+"&data"\r
  34 \r
  35   IF OS.FILE("&file")\r
  36   (\r
  37     &tmpfile=os.tmpfile()\r
  38     GOSUB testrun &file "hopp.txt"\r
  39     os cmd /c type hopp.txt >> &rfile  \r
  40     &testfiles=&testfiles+1\r
  41   )\r
  42   IF "&stop"=="yes"\r
  43   (\r
  44     print "Press any key"\r
  45     inkey \r
  46   )\r
  47 \r
  48   READ #10 &data\r
  49 ) \r
  50 \r
  51 CLOSE #10\r
  52 \r
  53 IF &testfiles==0\r
  54   print "NO testfiles found"\r
  55 ELSE\r
  56 (\r
  57   beep\r
  58   print "Ran:" &testfiles " testfiles"\r
  59   type "&rfile"\r
  60 )\r
  61 \r
  62 enddo\r
  63 \r
  64 //-------------------------------------\r
  65 testrun:\r
  66   LOCAL &file &term_file\r
  67   ENTRY &file &term_file\r
  68 \r
  69   IF ("&file"=="")||!OS.FILE("&file")\r
  70     RETURN\r
  71 \r
  72   sys.up\r
  73   do load load &file\r
  74   do term &term_file\r
  75   b.s exit\r
  76   b.s _exit\r
  77   go\r
  78   wait !run()\r
  79   b.d /all\r
  80   term.close\r
  81   RETURN\r
  82 \r
  83 \r
  84 \r
  85 \r
  86 \r
  87 \r
  88 \r
  89 \r
  90 \r