254
255
256
257
258
259
260
261
262
263
264
265
|
(define (rmt:testmeta-get-record testname)
(rmt:send-receive 'testmeta-get-record (list testname)))
(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)))
|
|
|
|
254
255
256
257
258
259
260
261
262
263
264
265
|
(define (rmt:testmeta-get-record testname)
(rmt:send-receive 'testmeta-get-record (list testname)))
(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 run-id test-id status)
(rmt:send-receive 'test-data-rollup (list run-id test-id status)))
(define (rmt:csv->test-data test-id csvdata)
(rmt:send-receive 'csv->test-data (list test-id csvdata)))
|