@@ -395,13 +395,14 @@ ;; 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 - (if (and config-reruns - (> run-count config-reruns)) - (set! run-count config-reruns)) + ;; 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 (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 @@ -667,13 +668,13 @@ (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) ))