31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
-
+
|
test-id))
;; RUN A RUN
(define (run-run dbconn target run-name num-tests)
(create-run dbconn target run-name)
(let ((run-id (get-run-id dbconn target run-name)))
(let loop ((test-num 0))
(system (conc "nbfake minimt runtest " run-id " test-" test-num))
(system (conc "NBFAKE_LOG=test-" test-num "-run-id-" run-id ".log NBFAKE_HOST=" *remotehost* " nbfake minimt runtest " run-id " test-" test-num))
(if (< test-num num-tests)
(loop (+ test-num 1))))))
;; Do what is asked
(let ((args (cdr (argv))))
(if (< (length args) 1)
(print
|
54
55
56
57
58
59
60
61
62
63
64
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
-
+
+
+
+
+
+
+
+
+
+
+
+
|
(let ((run-id (string->number (cadr args)))
(test-name (caddr args)))
(print "Launching test " test-name " for run-id " run-id)
(run-test dbconn run-id test-name)))
((runrun)
(let ((target (cadr args))
(run-name (caddr args)))
(run-run dbconn target run-name *numtests*)))
(run-run dbconn target run-name *numtests*)
(print "Use: sqlite3 runtest/mt.db 'select max(end_time)-min(start_time) from tests;' to see the total run time")
))
((runall)
(for-each
(lambda (target)
(let loop ((run-num 0))
(thread-sleep! *rundelay*)
(system (conc "NBFAKE_LOG=run-" target "-" run-num ".log nbfake minimt runrun " target " run-" run-num))
(if (< run-num *numruns*)
(loop (+ run-num 1)))))
*targets*))
(else
(print "Command: " cmd " not recognised. Run without params to see help.")))
(close-database (dbconn-dat-dbh dbconn)))))
|