Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -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 

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -74,16 +74,43 @@
      (conc "SELECT " keystr " FROM runs WHERE runname like ? " key-patt ";")
      runnamepatt)
     (vector header res)))
 
 (define (register-test db run-id test-name item-path)
-  (sqlite3:execute db "INSERT OR IGNORE INTO tests (run_id,testname,event_time,item_path) VALUES (?,?,strftime('%s','now'),?);" run-id test-name item-path))
+  (let ((item-paths (if (equal? item-path "")
+			(list item-path)
+			(list item-path ""))))
+    (for-each 
+     (lambda (pth)
+       (sqlite3:execute db "INSERT OR IGNORE INTO tests (run_id,testname,event_time,item_path) VALUES (?,?,strftime('%s','now'),?);" run-id test-name pth))
+     item-paths)))
+
+;;  (define db (open-db))
+;;  (test-set-status! db 2 "runfirst" "COMPLETED" "PASS" "summer")
 
 (define (test-set-status! db run-id test-name state status itemdat-or-path . comment)
   (let ((item-path (if (string? itemdat-or-path) itemdat-or-path (item-list->path itemdat-or-path))))
     (sqlite3:execute db "UPDATE tests SET state=?,status=?,event_time=strftime('%s','now') WHERE run_id=? AND testname=? AND item_path=?;" 
 		     state status run-id test-name item-path)
+    (if (and (not (equal? item-path "")) ;; need to update the top test record if PASS or FAIL and this is a subtest
+	     (or (equal? status "PASS")
+		 (equal? status "FAIL")))
+	(begin
+	  (sqlite3:execute 
+	   db
+	   "UPDATE tests 
+             SET fail_count=(SELECT count(id) FROM tests WHERE run_id=? AND testname=? AND item_path != '' AND status='FAIL'),
+                 pass_count=(SELECT count(id) FROM tests WHERE run_id=? AND testname=? AND item_path != '' AND status='PASS')
+             WHERE run_id=? AND testname=? AND item_path='';"
+	   run-id test-name run-id test-name run-id test-name)
+	  (sqlite3:execute
+	   db
+	   "UPDATE tests
+             SET state='COMPLETED',
+                status=CASE WHEN fail_count > 0 THEN 'FAIL' WHEN pass_count > 0 AND fail_count=0 THEN 'PASS' ELSE 'UNKNOWN' END
+             WHERE run_id=? AND testname=? AND item_path='';"
+	   run-id test-name)))
     (if (and (not (null? comment))
 	     (car comment))
 	(sqlite3:execute db "UPDATE tests SET comment=? WHERE run_id=? AND testname=? AND item_path=?;"
 			 (car comment) run-id test-name item-path))))