1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
|
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
|
+
+
-
-
+
+
+
+
+
+
+
+
-
+
|
(sqlite3:for-each-row
(lambda (count)
(set! res count))
db
"SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id NOT IN (SELECT id FROM runs WHERE state='deleted') AND NOT (uname = 'n/a' AND item_path = '');")
res))
;; override states to count with list of strings.
;;
(define (db:get-count-tests-running-for-run-id db run-id)
(let ((res 0))
(define (db:get-count-tests-running-for-run-id db run-id states)
(let ((res 0)
(sqrystr (conc "SELECT count(id) FROM tests WHERE state in ('"
(if states
(string-intersperse states "','")
"RUNNING','LAUNCHED','REMOTEHOSTSTART")
"') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');")))
(sqlite3:for-each-row
(lambda (count)
(set! res count)) ;; select * from tests where run_id=1 and uname = 'n/a' and item_path='';
db
sqrystr run-id)
"SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');" run-id)
;; "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');" run-id)
res))
(define (db:get-running-stats db)
(let ((res '()))
(sqlite3:for-each-row
(lambda (state count)
(set! res (cons (list state count) res)))
|