561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
|
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
|
-
+
|
diskfree
test-id)
(if minutes (sqlite3:execute db "UPDATE tests SET run_duration=? WHERE id=?;" minutes test-id))
(if (eq? num-records 0)
(sqlite3:execute db "UPDATE tests SET uname=?,host=? WHERE id=?;"
uname hostname test-id)))
(define (test-set-meta-info db test-id run-id testname itemdat minutes)
(define (tests:set-meta-info db test-id run-id testname itemdat minutes)
;; DOES cdb:remote-run under the hood!
(let* ((tdb (db:open-test-db-by-test-id db test-id))
(num-records (test:tdb-get-rundat-count tdb))
(cpuload (get-cpu-load))
(diskfree (get-df (current-directory))))
(if (eq? (modulo num-records 10) 0) ;; every ten records update central
(let ((uname (get-uname "-srvpio"))
|