Megatest

Diff
Login

Differences From Artifact [e990011da7]:

To Artifact [40ef7c9fc1]:


400
401
402
403
404
405
406

407
408
409
410
411
412
413








414
415
416



417
418
419
420
421
422
423
400
401
402
403
404
405
406
407







408
409
410
411
412
413
414
415
416


417
418
419
420
421
422
423
424
425
426







+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+

-
-
+
+
+








(define (test-get-kill-request db run-id test-name itemdat)
  (let* ((item-path (item-list->path itemdat))
	 (testdat   (db:get-test-info db run-id test-name item-path)))
    (equal? (test:get-state testdat) "KILLREQ")))

(define (test:tdb-get-rundat-count tdb)
  (if tdb
  (let ((res 0))
    (sqlite3:for-each-row
     (lambda (count)
       (set! res count))
     tdb
     "SELECT count(id) FROM test_rundat;")
    res))
      (let ((res 0))
	(sqlite3:for-each-row
	 (lambda (count)
	   (set! res count))
	 tdb
	 "SELECT count(id) FROM test_rundat;")
	res))
  0)

(define (test-set-meta-info db tdb run-id testname itemdat #!key (minutes #f))
  (let* ((num-records (test:tdb-get-rundat-count tdb))
(define (test-set-meta-info db test-id run-id testname itemdat #!key (minutes #f))
  (let* ((tdb         (db:open-test-db-by-test-id db test-id))
	 (num-records (test:tdb-get-rundat-count tdb))
	 (item-path   (item-list->path itemdat))
	 (cpuload  (get-cpu-load))
	 (diskfree (get-df (current-directory))))
    (if (eq? (modulo num-records 10) 0) ;; every ten records update central
	(begin
	  (sqlite3:execute db "UPDATE tests SET cpuload=?,diskfree=? WHERE run_id=? AND testname=? AND item_path=?;"
			   cpuload