136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
;; reset to COMPLETED/PASS
(tests:test-set-status! 1 test-id "COMPLETED" "PASS" #f #f)
(test "Top reset to COMPLETED/PASS" '("COMPLETED" "PASS")(get-state-status 1 "rollup" ""))
(tests:test-set-status! 1 test-id state status #f #f)
(test (conc "Item set to " state "/" status)
(list state status)
(get-state-status 1 "rollup" "item/4"))
(test (conc "Rollup of " state "/" status " correct")
(list rup-state rup-status)
(get-state-status 1 "rollup" "")))
'("COMPLETED" "COMPLETED" "INCOMPLETE" "INCOMPLETE" "RUNNING" "RUNNING" "COMPLETED")
'("ABORT" "FAIL" "PASS" "FAIL" "PASS" "FAIL" "BLAH")
'("COMPLETED" "COMPLETED" "COMPLETED" "COMPLETED" "RUNNING" "RUNNING" "COMPLETED")
'("FAIL" "FAIL" "FAIL" "FAIL" "PASS" "FAIL" "FAIL")))
(test "launch-test" #t
(string?
(file-exists?
;; (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat params)
(launch-test 30001 1 rinfo keyvals "run1" tconfig "test1" test-path '() (make-hash-table)))))
|
|
|
|
|
|
|
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
;; reset to COMPLETED/PASS
(tests:test-set-status! 1 test-id "COMPLETED" "PASS" #f #f)
(test "Top reset to COMPLETED/PASS" '("COMPLETED" "PASS")(get-state-status 1 "rollup" ""))
(tests:test-set-status! 1 test-id state status #f #f)
(test (conc "Item set to " state "/" status)
(list state status)
(get-state-status 1 "rollup" "item/4"))
(test (conc "Rollup of " state "/" status)
(list rup-state rup-status)
(get-state-status 1 "rollup" "")))
'("COMPLETED" "COMPLETED" "INCOMPLETE" "INCOMPLETE" "RUNNING" "RUNNING" "COMPLETED" "COMPLETED")
'("ABORT" "FAIL" "PASS" "FAIL" "PASS" "FAIL" "BLAH" "AUTO")
'("COMPLETED" "COMPLETED" "COMPLETED" "COMPLETED" "RUNNING" "RUNNING" "COMPLETED" "COMPLETED")
'("ABORT" "FAIL" "FAIL" "FAIL" "PASS" "FAIL" "ABORT" "AUTO")))
(test "launch-test" #t
(string?
(file-exists?
;; (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat params)
(launch-test 30001 1 rinfo keyvals "run1" tconfig "test1" test-path '() (make-hash-table)))))
|