393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
|
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
|
+
-
-
-
+
+
+
|
(exit 1))
;; per user request. If less than 100Meg space on dbdir partition, bail out with error
;; this will reduce issues in database corruption
(common:check-db-dir-and-exit-if-insufficient)
;; override the number of reruns from the configs
;; this needs to be done at the place where is first runs:run-tests called
(if (and config-reruns
(> run-count config-reruns))
(set! run-count config-reruns))
;(if (and config-reruns
; (> run-count config-reruns))
;(set! run-count config-reruns))
;; (if (tasks:need-server run-id)(tasks:start-and-wait-for-server tdbdat run-id 10))
(let ((sighand (lambda (signum)
;; (signal-mask! signum) ;; to mask or not? seems to cause issues in exiting
(set! *time-to-exit* #t)
(print "Received signal " signum ", cleaning up before exit. Please wait...")
|
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
|
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
|
-
+
-
+
|
(runs:run-tests target runname test-patts user flags run-count: (- run-count 1)))))
(debug:print-info 0 *default-log-port* "No tests to run")))
(debug:print-info 4 *default-log-port* "All done by here")
;; TODO: try putting post hook call here
(if (eq? run-count 0)
(begin
(debug:print-info 0 *default-log-port* "Calling Post Hook")
(debug:print-info 4 *default-log-port* " run-count " run-count)
(debug:print-info 2 *default-log-port* " run-count " run-count)
(runs:run-post-hook run-id))
(debug:print-info 4 *default-log-port* "Not calling post hook runcount = " run-count ))
(debug:print-info 2 *default-log-port* "Not calling post hook runcount = " run-count ))
(rmt:tasks-set-state-given-param-key task-key "done")
;; (sqlite3:finalize! tasks-db)
))
;; loop logic. These are used in runs:run-tests-queue to make it a bit more readable.
;;
|