171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
+
+
+
|
(let ((res (rmt:send-receive 'get-prereqs-not-met (list run-id waitons ref-item-path mode))))
(map (lambda (x)
(if (list? x)
(list->vector x)
x))
res)))
(define (rmt:get-count-tests-running-for-run-id run-id)
(rmt:send-receive 'get-count-tests-running-for-run-id (list run-id)))
;; Statistical queries
(define (rmt:get-count-tests-running)
(rmt:send-receive 'get-count-tests-running '()))
(define (rmt:get-count-tests-running-in-jobgroup jobgroup)
(rmt:send-receive 'get-count-tests-running-in-jobgroup (list jobgroup)))
|