Megatest

	db
	"SELECT state,status,count(id) AS count FROM tests WHERE run_id=? AND NOT(uname='n/a' AND item_path='') GROUP BY state,status;"
	run-id))))

;; Update run_stats for given run_id
;; input data is a list (state status count)
;;
(define (db:update-run-stats dbstruct run-id stats-in)
  (let* ((stats (if (list? stats-in)
		    stats-in
		    (db:get-raw-run-stats run-id))))
    (mutex-lock! *db-transaction-mutex*)
    (db:with-db
     dbstruct
     #f
     #t
     (lambda (dbdat db)
       ;; remove previous data
       
       (let* ((stmt1 (sqlite3:prepare db "DELETE FROM run_stats WHERE run_id=? AND state=? AND status=?;"))
	      (stmt2 (sqlite3:prepare db "INSERT INTO run_stats (run_id,state,status,count) VALUES (?,?,?,?);"))
	      (res
	       (sqlite3:with-transaction
		db
		(lambda ()
		  (for-each
		   (lambda (dat)
		     (sqlite3:execute stmt1 run-id (car dat)(cadr dat))
		     (apply sqlite3:execute stmt2 run-id dat))
		   stats)))))
	 (sqlite3:finalize! stmt1)
	 (sqlite3:finalize! stmt2)
	 (mutex-unlock! *db-transaction-mutex*)
	 res)))))

(define (db:get-main-run-stats dbstruct run-id)
  (db:with-db
   dbstruct
   #f ;; this data comes from main
   #f
   (lambda (dbdat db)