52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
+
+
+
+
+
+
+
+
|
((get-run-name-from-id) (apply db:get-run-name-from-id db params))
((delete-run) (apply db:delete-run db params))
((get-runs) (apply db:get-runs db params))
((get-runs-by-patt) (apply db:get-runs-by-patt db params))
((lock/unlock-run) (apply db:lock/unlock-run db params))
((update-run-event_time) (apply db:update-run-event_time db params))
;; STEPS
((teststep-set-status!) (apply db:teststep-set-status! db params))
;; TEST DATA
((test-data-rollup) (apply db:test-data-rollup db params))
((csv->test-data) (apply db:csv->test-data db params))
((get-steps-data) (apply db:get-steps-data db params))
;; MISC
((login) (apply db:login db params))
((general-call) (let ((stmtname (car params))
(realparams (cdr params)))
(db:general-call db stmtname realparams)))
((sync-inmem->db) (db:sync-back))
((kill-server)
|