77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
(rmt:send-receive 'get-key-val-pairs (list run-id)))
;;======================================================================
;; T E S T S
;;======================================================================
(define (rmt:get-test-info-by-id test-id)
(list->vector
(rmt:send-receive 'get-test-info-by-id (list test-id))))
(define (rmt:test-get-rundir-from-test-id test-id)
(rmt:send-receive 'test-get-rundir-from-test-id (list test-id)))
(define (rmt:open-test-db-by-test-id test-id #!key (work-area #f))
(let* ((test-path (if (string? work-area)
work-area
|
<
|
>
>
>
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
(rmt:send-receive 'get-key-val-pairs (list run-id)))
;;======================================================================
;; T E S T S
;;======================================================================
(define (rmt:get-test-info-by-id test-id)
(let ((res (rmt:send-receive 'get-test-info-by-id (list test-id))))
(if (list? res)
(list->vector res)
res)))
(define (rmt:test-get-rundir-from-test-id test-id)
(rmt:send-receive 'test-get-rundir-from-test-id (list test-id)))
(define (rmt:open-test-db-by-test-id test-id #!key (work-area #f))
(let* ((test-path (if (string? work-area)
work-area
|