@@ -37,32 +37,35 @@
 			    "state TEXT DEFAULT '',"
 			    "status TEXT DEFAULT '',"
 			    "owner TEXT DEFAULT '',"
 			    "event_time TIMESTAMP,"
 			    "comment TEXT DEFAULT '',"
+			    "fail_count INTEGER DEFAULT 0,"
+			    "pass_count INTEGER DEFAULT 0,"
 			    "CONSTRAINT runsconstraint UNIQUE (runname" (if havekeys "," "") keystr "));"))
 	  (sqlite3:execute db (conc "CREATE INDEX runs_index ON runs (runname" (if havekeys "," "") keystr ");"))
 	  (sqlite3:execute db 
 			"CREATE TABLE tests 
                     (id INTEGER PRIMARY KEY,
                      run_id     INTEGER,
                      testname   TEXT,
-                     itempath   TEXT,
                      host       TEXT DEFAULT 'n/a',
                      cpuload    REAL DEFAULT -1,
                      diskfree   INTEGER DEFAULT -1,
                      uname      TEXT DEFAULT 'n/a', 
                      rundir     TEXT DEFAULT 'n/a',
                      item_path  TEXT DEFAULT '',
                      state      TEXT DEFAULT 'NOT_STARTED',
-                     status     TEXT DEFAULT 'n/a',
+                     status     TEXT DEFAULT 'FAIL',
                      attemptnum INTEGER DEFAULT 0,
                      final_logf TEXT DEFAULT 'logs/final.log',
                      logdat     BLOB, 
                      run_duration INTEGER DEFAULT 0,
                      comment    TEXT DEFAULT '',
                      event_time TIMESTAMP,
+                     fail_count INTEGER DEFAULT 0,
+                     pass_count INTEGER DEFAULT 0,
                      CONSTRAINT testsconstraint UNIQUE (run_id, testname, item_path)
           );")
 	  (sqlite3:execute db "CREATE INDEX tests_index ON tests (run_id, testname);")
 	  (sqlite3:execute db "CREATE VIEW runs_tests AS SELECT * FROM runs INNER JOIN tests ON runs.id=tests.run_id;")
 	  (sqlite3:execute db "CREATE TABLE test_steps 
@@ -237,11 +240,20 @@
   (sqlite3:execute 
    db 
    "UPDATE tests SET comment=? WHERE run_id=? AND testname=? AND item_path=?;"
      comment run-id testname item-path))
 
+;;
+(define (db:test-set-rundir! db run-id testname item-path rundir)
+  (sqlite3:execute 
+   db 
+   "UPDATE tests SET rundir=? WHERE run_id=? AND testname=? AND item_path=?;"
+     rundir run-id testname item-path))
+
+;;======================================================================
 ;; Steps
+;;======================================================================
 ;; Run steps
 ;; make-vector-record "Run steps" db step id test_id stepname step_complete step_pass event_time    
 (define (make-db:step)(make-vector 6))
 (define-inline (db:step-get-id              vec)    (vector-ref  vec 0))
 (define-inline (db:step-get-test_id         vec)    (vector-ref  vec 1))