16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
;; 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)))
|
|
|
|
>
>
|
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
|
;; 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")
(let loop ((step-num 0))
(let ((step-name (conc "step" step-num)))
(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.")))
(if (< step-num *numsteps*)
(loop (+ step-num 1))))
(rmt:test-set-state-status dbconn test-id "COMPLETED" (if (> (random 10) 2) "PASS" "FAIL"))
(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)))
|