test/runtests.c

   1 #include <aros/debug.h>
   2 #include <proto/dos.h>
   3
   4 BPTR scripthandle;
   5 CONST_STRPTR scriptname;
   6 UBYTE command[200];
   7 LONG error;
   8 LONG failcnt;
   9 LONG errorcnt;
  10 LONG warncnt;
  11 LONG okcnt;
  12
  13 int main(int argc, char **argv)
  14 {
  15     if (argc == 1)
  16     {
  17         scriptname = "testscript";
  18     }
  19     else if (argc == 2)
  20     {
  21         scriptname = argv[1];
  22     }
  23     else
  24     {
  25         PutStr("Usage runtest [scriptfile]\n");
  26     }
  27
  28     scripthandle = Open(scriptname, MODE_OLDFILE);
  29     if (!scripthandle)
  30     {
  31         PutStr("Can't open file\n");
  32         return 0;
  33     }
  34
  35     PutStr("Reading commands from file ");
  36     PutStr(scriptname);
  37     PutStr("\nOutput will be sent to the debugging console\n\n");
  38
  39     while (FGets(scripthandle, command, sizeof command))
  40     {
  41         if (command[0] != '#' && command[0] != '\n')
  42         {
  43             bug("====================================\n");
  44             bug("Running command: %s", command);
  45             error = SystemTags(command, TAG_DONE);
  46             bug("returns: %d\n", error);
  47
  48             if (error >= RETURN_FAIL)
  49                 failcnt++;
  50             else if (error >= RETURN_ERROR)
  51                 errorcnt++;
  52             else if (error >= RETURN_WARN)
  53                 warncnt++;
  54             else
  55                 okcnt++;
  56         }
  57     }
  58     bug("====================================\n");
  59     bug("Summary: ok %d warn %d error %d fail %d\n", okcnt, warncnt, errorcnt, failcnt);
  60
  61     Close(scripthandle);
  62
  63     return 0;
  64 }