942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
|
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
|
+
-
+
|
"SELECT id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment FROM tests WHERE id=?;"
test-id)
res)))
(define db:get-test-info-by-id db:get-test-info-not-cached-by-id)
(define (db:get-test-info db run-id testname item-path)
(let ((test-id (db:get-test-id db run-id testname item-path)))
(db:get-test-info-by-id db (db:get-test-id db run-id testname item-path)))
(db:get-test-info-by-id db test-id)))
(define (db:test-set-comment db test-id comment)
(sqlite3:execute
db
"UPDATE tests SET comment=? WHERE id=?;"
comment test-id))
|