1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(use posix)
(include "db.scm")
;; define following in setup.scm
;; *remotehost* => host for "tests"
;; *homehost* => host for servers
;; *homepath* => directory from which to run
;; *numtests* => how many tests to simulate for each run
;; *numruns* => how many runs to simulate
;;
(include "setup.scm")
;; RUN A TEST
(define (run-test dbconn run-id test-name)
(create-test dbconn run-id test-name)
(let ((test-id (get-test-id dbconn run-id test-name)))
(test-set-state-status dbconn test-id "LAUNCHED" "na")
(thread-sleep! *launchdelay*)
(test-set-state-status dbconn test-id "RUNNING" "na")
(for-each
(lambda (step-name)
(create-step dbconn test-id step-name)
(let ((step-id (get-step-id dbconn test-id step-name)))
(step-set-state-status dbconn step-id "START" -1)
(thread-sleep! *stepdelay*)
(step-set-state-status dbconn step-id "END" 0)
(print" STEP: " step-name " done.")))
'("step1" "step2" "step3" "step4" "step5" "step6" "step7" "step8" "step9"))
(print "TEST: " test-name " done.")
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_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
"Usage: minimt [options]" "
runtest run-id testname
runrun target runname")
(let ((cmd (car args))
(dbconn (open-create-db *homepath* "mt.db" init-db)))
(change-directory *homepath*)
(case (string->symbol cmd)
((runtest)
(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)))
|
>
>
|
|
|
|
|
|
|
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
(use posix)
(include "db.scm")
;; define following in setup.scm
;; *remotehost* => host for "tests"
;; *homehost* => host for servers
;; *homepath* => directory from which to run
;; *numtests* => how many tests to simulate for each run
;; *numruns* => how many runs to simulate
;;
(include "setup.scm")
(include "direct.scm") ;; direct db calls
;; RUN A TEST
(define (run-test dbconn run-id test-name)
(rmt:create-test dbconn run-id test-name)
(let ((test-id (rmt:get-test-id dbconn run-id test-name)))
(rmt:test-set-state-status dbconn test-id "LAUNCHED" "na")
(thread-sleep! *launchdelay*)
(rmt:test-set-state-status dbconn test-id "RUNNING" "na")
(for-each
(lambda (step-name)
(rmt:create-step dbconn test-id step-name)
(let ((step-id (get-step-id dbconn test-id step-name)))
(rmt:step-set-state-status dbconn step-id "START" -1)
(thread-sleep! *stepdelay*)
(rmt:step-set-state-status dbconn step-id "END" 0)
(print" STEP: " step-name " done.")))
'("step1" "step2" "step3" "step4" "step5" "step6" "step7" "step8" "step9"))
(print "TEST: " test-name " done.")
test-id))
;; RUN A RUN
(define (run-run dbconn target run-name num-tests)
(rmt:create-run dbconn target run-name)
(let ((run-id (rmt:get-run-id dbconn target run-name)))
(let loop ((test-num 0))
(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
"Usage: minimt [options]" "
runtest run-id testname
runrun target runname")
(let ((cmd (car args))
(dbconn (rmt:open-create-db *homepath* "mt.db" init-db)))
(change-directory *homepath*)
(case (string->symbol cmd)
((runtest)
(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)))
|