88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
(rpc:publish-procedure!
'cdb:test-set-status-state
(lambda (test-id status state msg)
(debug:print 4 "INFO: Remote call of cdb:test-set-status-state test-id=" test-id ", status=" status ", state=" state ", msg=" msg)
(cdb:test-set-status-state test-id status state msg)))
(rpc:publish-procedure!
'cdb:test-rollup-iterated-pass-fail
(lambda (test-id)
(debug:print 4 "INFO: Remote call of cdb:test-rollup-iterated-pass-fail " test-id)
(cdb:test-rollup-iterated-pass-fail test-id)))
(rpc:publish-procedure!
'cdb:pass-fail-counts
(lambda (test-id fail-count pass-count)
(debug:print 4 "INFO: Remote call of cdb:pass-fail-counts " test-id " passes: " pass-count " fails: " fail-count)
(cdb:pass-fail-counts test-id fail-count pass-count)))
|
|
|
|
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
(rpc:publish-procedure!
'cdb:test-set-status-state
(lambda (test-id status state msg)
(debug:print 4 "INFO: Remote call of cdb:test-set-status-state test-id=" test-id ", status=" status ", state=" state ", msg=" msg)
(cdb:test-set-status-state test-id status state msg)))
(rpc:publish-procedure!
'cdb:test-rollup-test_data-pass-fail
(lambda (test-id)
(debug:print 4 "INFO: Remote call of cdb:test-rollup-test_data-pass-fail " test-id)
(cdb:test-rollup-test_data-pass-fail test-id)))
(rpc:publish-procedure!
'cdb:pass-fail-counts
(lambda (test-id fail-count pass-count)
(debug:print 4 "INFO: Remote call of cdb:pass-fail-counts " test-id " passes: " pass-count " fails: " fail-count)
(cdb:pass-fail-counts test-id fail-count pass-count)))
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
(if (or (not (> numrunning 0))
(> *last-db-access* (+ (current-seconds) 60)))
(begin
(debug:print 0 "INFO: Starting to shutdown the server side")
;; need to delete only *my* server entry (future use)
(sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' AND val like ?;" host:port)
(thread-sleep! 10)
(debug:print 0 "INFO: Server shutdown complete. Exiting")
(exit))
(debug:print 0 "INFO: Server continuing, tests running: " numrunning ", seconds since last db access: " (- (current-seconds) *last-db-access*))
))
(loop (+ 1 count))))
(define (server:find-free-port-and-open port)
|
>
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
(if (or (not (> numrunning 0))
(> *last-db-access* (+ (current-seconds) 60)))
(begin
(debug:print 0 "INFO: Starting to shutdown the server side")
;; need to delete only *my* server entry (future use)
(sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' AND val like ?;" host:port)
(thread-sleep! 10)
(debug:print 0 "INFO: Max cached queries was " *max-cache-size*)
(debug:print 0 "INFO: Server shutdown complete. Exiting")
(exit))
(debug:print 0 "INFO: Server continuing, tests running: " numrunning ", seconds since last db access: " (- (current-seconds) *last-db-access*))
))
(loop (+ 1 count))))
(define (server:find-free-port-and-open port)
|