38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
+
|
get-run-status
register-run
get-tests-for-run
get-test-id
get-tests-for-runs-mindata
get-run-name-from-id
get-runs
get-num-runs
get-all-run-ids
get-prev-run-ids
get-run-ids-matching-target
get-runs-by-patt
get-steps-data
get-steps-for-test
login
|
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
+
+
|
;;======================================================================
;; READ ONLY QUERIES
;;======================================================================
;; KEYS
((get-key-val-pairs) (apply db:get-key-val-pairs dbstruct area-dat params))
((get-keys) (db:get-keys dbstruct area-dat))
((get-key-vals) (apply db:get-key-vals dbstruct params))
((get-targets) (db:get-targets dbstruct))
;; ARCHIVES
((test-get-archive-block-info) (apply db:test-get-archive-block-info dbstruct area-dat params))
;; TESTS
((test-toplevel-num-items) (apply db:test-toplevel-num-items dbstruct area-dat params))
((get-test-info-by-id) (apply db:get-test-info-by-id dbstruct area-dat params))
|
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
+
|
((get-run-status) (apply db:get-run-status dbstruct area-dat params))
((set-run-status) (apply db:set-run-status dbstruct area-dat params))
((get-tests-for-run) (apply db:get-tests-for-run dbstruct area-dat params))
((get-test-id) (apply db:get-test-id dbstruct area-dat params))
((get-tests-for-run-mindata) (apply db:get-tests-for-run-mindata dbstruct area-dat params))
((get-runs) (apply db:get-runs dbstruct area-dat params))
((get-all-run-ids) (db:get-all-run-ids dbstruct area-dat))
((get-num-runs) (apply db:get-num-runs dbstruct params))
((get-prev-run-ids) (apply db:get-prev-run-ids dbstruct area-dat params))
((get-run-ids-matching-target) (apply db:get-run-ids-matching-target dbstruct area-dat params))
((get-runs-by-patt) (apply db:get-runs-by-patt dbstruct area-dat params))
((get-run-name-from-id) (apply db:get-run-name-from-id dbstruct area-dat params))
;; STEPS
((get-steps-data) (apply db:get-steps-data dbstruct area-dat params))
|