231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
'rdb:test-data-rollup
(lambda (test-id status)
(set! *last-db-access* (current-seconds))
(db:test-data-rollup db test-id status)))
(rpc:publish-procedure!
'rtests:test-set-status!
(lambda (run-id test-name state status itemdat-or-path comment dat)
(set! *last-db-access* (current-seconds))
(test-set-status! db run-id test-name state status itemdat-or-path comment dat)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
|
|
|
|
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
'rdb:test-data-rollup
(lambda (test-id status)
(set! *last-db-access* (current-seconds))
(db:test-data-rollup db test-id status)))
(rpc:publish-procedure!
'rtests:test-set-status!
(lambda (test-id state status comment dat)
(set! *last-db-access* (current-seconds))
(test-set-status! db test-id state status comment dat)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
|