44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
((get-prereqs-not-met) (let ((res (apply db:get-prereqs-not-met db params)))
(map (lambda (x)
(if (vector? x)
(vector->list x)
x))
res)))
((roll-up-pass-fail-counts) (apply db:roll-up-pass-fail-counts db params))
;; RUNS
((get-run-info) (let ((res (apply db:get-run-info db params)))
(list (vector-ref res 0)
(vector->list (vector-ref res 1)))))
((register-run) (apply db:register-run db params))
((set-tests-state-status) (apply db:set-tests-state-status db params))
|
|
|
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
((get-prereqs-not-met) (let ((res (apply db:get-prereqs-not-met db params)))
(map (lambda (x)
(if (vector? x)
(vector->list x)
x))
res)))
((roll-up-pass-fail-counts) (apply db:roll-up-pass-fail-counts db params))
((update-fail-pass-counts) (apply db:general-call db 'update-pass-fail-counts params))
;; RUNS
((get-run-info) (let ((res (apply db:get-run-info db params)))
(list (vector-ref res 0)
(vector->list (vector-ref res 1)))))
((register-run) (apply db:register-run db params))
((set-tests-state-status) (apply db:set-tests-state-status db params))
|