diff --git a/src/regress/regress.lisp b/src/regress/regress.lisp index d1c0d1c..e063565 100644 --- a/src/regress/regress.lisp +++ b/src/regress/regress.lisp @@ -68,7 +68,7 @@ :into expected-data-target :options '(:truncate t) :start-logger nil - :flush-summary nil) + :flush-summary t) ;; now compare both (with-pgsql-connection (target-conn) diff --git a/src/utils/monitor.lisp b/src/utils/monitor.lisp index 25cdde6..3353919 100644 --- a/src/utils/monitor.lisp +++ b/src/utils/monitor.lisp @@ -176,16 +176,13 @@ (stop (cl-log:log-message :info "Stopping monitor") - ;; report the summary now - (destructuring-bind (&key pre data post) *sections* - (unless (and (null pre) (null data) (null post)) - (report-current-summary start-time))) - ;; time to shut down the logger? (when (stop-stop-logger event) (pgloader.logs:stop-logger))) (report-summary + (cl-log:log-message :log "report summary ~@[reset~]" + (report-summary-reset event)) (report-current-summary start-time) (when (report-summary-reset event)