69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
-
+
|
(list run-id factor)
(let ((new-id (+ max-run-id 1)))
(set! max-run-id new-id)
(hash-table-set! run-ids factor new-id)
(list new-id factor)))))
(define (create-tests db)
(define (create-tests stmth)
(let ((num-created 0)
(last-print (current-seconds))
(start-time (current-seconds)))
(for-each
(lambda (test)
(for-each
(lambda (item)
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
-
+
|
(factor (cadr run-id-dat))
(curr-time (current-seconds)))
(if (> (- curr-time last-print) 10)
(begin
(print "Adding " run-id " " test " " item " " factor " (added " num-created " records so far)")
(set! last-print curr-time)))
(set! num-created (+ num-created 1))
(register-test db
(register-test stmth ;; db
run-id
test ;; testname
host
cpuload
diskfree
uname
(conc basedir "/" test "/" item) ;; rundir
|