193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
(test #f #t (begin (rmt:teststep-set-status! run-id test-id teststep-name state-in status-in comment logfile) #t))
(test #f #t (vector? (car (rmt:get-steps-for-test run-id test-id))))
(test #f '() (rmt:read-test-data run-id test-id categorypatt work-area: work-area))
(test #f #t (begin (rmt:testmeta-add-record testname) #t))
(test #f (vector 1 "atest" "" "" "" "" "" "" "" "" "default") (rmt:testmeta-get-record testname))
(test #f #t (begin (rmt:testmeta-update-field test-name fld val) #t))
(test #f #t (rmt:test-data-rollup run-id test-id status))
;; disabled as the function is unfinished and unused
;; (test #f #f (rmt:csv->test-data run-id test-id csvdata))
(test #f '() (rmt:tasks-find-task-queue-records target runname testpatt statepatt action-patt))
(test #f #t (begin (rmt:tasks-add "action" owner target runname testpatt "params") #t))
(test #f #t (begin (rmt:tasks-set-state-given-param-key param-key newstate) #t))
(test #f #t (begin (rmt:test-set-state-status-by-id run-id test-id newstate newstatus newcomment) #t))
;;
;; (test #f #f (rmt:archive-get-allocations testname itempath dneeded))
;; (test #f #f (rmt:archive-register-block-name bdisk-id archive-path))
|
<
|
|
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
(test #f #t (begin (rmt:teststep-set-status! run-id test-id teststep-name state-in status-in comment logfile) #t))
(test #f #t (vector? (car (rmt:get-steps-for-test run-id test-id))))
(test #f '() (rmt:read-test-data run-id test-id categorypatt work-area: work-area))
(test #f #t (begin (rmt:testmeta-add-record testname) #t))
(test #f (vector 1 "atest" "" "" "" "" "" "" "" "" "default") (rmt:testmeta-get-record testname))
(test #f #t (begin (rmt:testmeta-update-field test-name fld val) #t))
(test #f #t (rmt:test-data-rollup run-id test-id status))
(test #f #t (begin (rmt:csv->test-data run-id test-id csvdata) #t))
(test #f '() (rmt:tasks-find-task-queue-records target runname testpatt statepatt action-patt))
(test #f #t (begin (rmt:tasks-add "action" owner target runname testpatt "params") #t))
(test #f #t (begin (rmt:tasks-set-state-given-param-key param-key newstate) #t))
(test #f #t (begin (rmt:test-set-state-status-by-id run-id test-id newstate newstatus newcomment) #t))
;;
;; (test #f #f (rmt:archive-get-allocations testname itempath dneeded))
;; (test #f #f (rmt:archive-register-block-name bdisk-id archive-path))
|