222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
;; If not given the work area
;; 1. Do a remote call to get the test path
;; 2. Continue as above
;;
(define (rmt:get-steps-for-test test-id)
(rmt:send-receive 'get-steps-data (list test-id)))
(define (rmt:teststep-set-status! db test-id teststep-name state-in status-in comment logfile)
(let* ((state (items:check-valid-items "state" state-in))
(status (items:check-valid-items "status" status-in)))
(if (or (not state)(not status))
(debug:print 3 "WARNING: Invalid " (if status "status" "state")
" value \"" (if status state-in status-in) "\", update your validvalues section in megatest.config"))
(rmt:send-receive 'teststep-set-status! (list test-id teststep-name state-in status-in comment logfile))))
|
|
|
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
;; If not given the work area
;; 1. Do a remote call to get the test path
;; 2. Continue as above
;;
(define (rmt:get-steps-for-test test-id)
(rmt:send-receive 'get-steps-data (list test-id)))
(define (rmt:teststep-set-status! test-id teststep-name state-in status-in comment logfile)
(let* ((state (items:check-valid-items "state" state-in))
(status (items:check-valid-items "status" status-in)))
(if (or (not state)(not status))
(debug:print 3 "WARNING: Invalid " (if status "status" "state")
" value \"" (if status state-in status-in) "\", update your validvalues section in megatest.config"))
(rmt:send-receive 'teststep-set-status! (list test-id teststep-name state-in status-in comment logfile))))
|
255
256
257
258
259
260
261
262
263
|
(define (rmt:testmeta-update-field test-name fld val)
(rmt:send-receive 'testmeta-update-field (list test-name fld val)))
(define (rmt:test-data-rollup test-id status)
(rmt:send-receive 'test-data-rollup (list test-id status)))
(define (db:csv->test-data db test-id csvdata)
(rmt:send-receive 'csv->test-data (list test-id csvdata)))
|
|
|
255
256
257
258
259
260
261
262
263
|
(define (rmt:testmeta-update-field test-name fld val)
(rmt:send-receive 'testmeta-update-field (list test-name fld val)))
(define (rmt:test-data-rollup test-id status)
(rmt:send-receive 'test-data-rollup (list test-id status)))
(define (rmt:csv->test-data test-id csvdata)
(rmt:send-receive 'csv->test-data (list test-id csvdata)))
|