215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
|
(test-names #f) ;; (tests:filter-test-names all-test-names test-patts))
(required-tests #f) ;;(lset-intersection equal? (string-split test-patts ",") test-names))) ;; test-names)) ;; Added test-names as initial for required-tests but that failed to work
(task-key (conc (hash-table->alist flags) " " (get-host-name) " " (current-process-id)))
(tasks-db (tasks:open-db)))
(set-signal-handler! signal/int
(lambda (signum)
(let ((tdb (tasks:open-db)))
(tasks:set-state-given-param-key tdb task-key "killed")
(sqlite3:finalize! tdb))
(print "Killed by sigint. Exiting")
(exit)))
;; register this run in monitor.db
(tasks:add tasks-db "run-tests" user target runname test-patts task-key) ;; params)
(tasks:set-state-given-param-key tasks-db task-key "running")
(runs:set-megatest-env-vars run-id inkeys: keys inrunname: runname) ;; these may be needed by the launching process
(if (file-exists? runconfigf)
|
>
>
|
|
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
|
(test-names #f) ;; (tests:filter-test-names all-test-names test-patts))
(required-tests #f) ;;(lset-intersection equal? (string-split test-patts ",") test-names))) ;; test-names)) ;; Added test-names as initial for required-tests but that failed to work
(task-key (conc (hash-table->alist flags) " " (get-host-name) " " (current-process-id)))
(tasks-db (tasks:open-db)))
(set-signal-handler! signal/int
(lambda (signum)
(signal-mask! signum)
(let ((tdb (tasks:open-db)))
(tasks:set-state-given-param-key tdb task-key "killed")
;; (sqlite3:interrupt! tdb) ;; seems silly?
(sqlite3:finalize! tdb))
(print "Killed by signal " signum ". Exiting")
(exit)))
;; register this run in monitor.db
(tasks:add tasks-db "run-tests" user target runname test-patts task-key) ;; params)
(tasks:set-state-given-param-key tasks-db task-key "running")
(runs:set-megatest-env-vars run-id inkeys: keys inrunname: runname) ;; these may be needed by the launching process
(if (file-exists? runconfigf)
|