22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses servermod))
(module apimod
*
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable
s11n z3 (prefix base64 base64:) regex stack srfi-13
irregex)
(import commonmod)
(import dbmod)
(import servermod)
;; (use (prefix ulex ulex:))
;; These are called by the server on recipt of /api calls
|
|
|
|
<
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses servermod))
(module apimod
*
(import scheme chicken.base chicken.irregex chicken.process-context.posix chicken.string chicken.time)
(import (prefix sqlite3 sqlite3:) typed-records srfi-18 srfi-69 format chicken.port srfi-1 matchable
s11n z3 (prefix base64 base64:) regex stack srfi-13)
(import commonmod)
(import dbmod)
(import servermod)
;; (use (prefix ulex ulex:))
;; These are called by the server on recipt of /api calls
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
;; STEPS
((teststep-set-status!) (apply db:teststep-set-status! dbstruct params))
((delete-steps-for-test!) (apply db:delete-steps-for-test! dbstruct params))
;; TEST DATA
((test-data-rollup) (apply db:test-data-rollup dbstruct params))
((csv->test-data) (apply db:csv->test-data dbstruct params))
;; MISC
((sync-inmem->db) (let ((run-id (car params)))
(db:sync-touched dbstruct run-id force-sync: #t)))
((mark-incomplete) (apply db:find-and-mark-incomplete dbstruct params))
;; TESTMETA
|
|
|
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
;; STEPS
((teststep-set-status!) (apply db:teststep-set-status! dbstruct params))
((delete-steps-for-test!) (apply db:delete-steps-for-test! dbstruct params))
;; TEST DATA
((test-data-rollup) (apply db:test-data-rollup dbstruct params))
;;((csv->test-data) (apply db:csv->test-data dbstruct params))
;; MISC
((sync-inmem->db) (let ((run-id (car params)))
(db:sync-touched dbstruct run-id force-sync: #t)))
((mark-incomplete) (apply db:find-and-mark-incomplete dbstruct params))
;; TESTMETA
|