The log level is always in uppercase, and its surrounding parentheses are dropped.
* src/logging/logger.scm (default-log-formatter): Uppercase level and strip its surrounding parens. * unit-tests/logging.logger.scm: Adjust expected output accordingly. --- src/logging/logger.scm | 6 +++--- unit-tests/logging.logger.scm | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/logging/logger.scm b/src/logging/logger.scm index 982c44d..5403531 100644 --- a/src/logging/logger.scm +++ b/src/logging/logger.scm @@ -299,9 +299,9 @@ syntactic wrapper (currently left to the user to implement)." (format #t " ~a:~a:" (1+ line) column)) ((('filename . file-name) ('line . line) ('column . column)) (format #t " ~a:~a:~a:" file-name (1+ line) column))) - (display " (") - (display (symbol->string lvl)) - (display "): ") + (display " ") + (display (string-upcase (symbol->string lvl))) + (display ": ") (display str) (newline)))) diff --git a/unit-tests/logging.logger.scm b/unit-tests/logging.logger.scm index d26587c..2093bf2 100644 --- a/unit-tests/logging.logger.scm +++ b/unit-tests/logging.logger.scm @@ -30,7 +30,7 @@ (lgr (make <logger> #:handlers (list (make <port-log> #:port strport))))) (open-log! lgr) (log-msg lgr 'CRITICAL "Hello!") - (assert-equal "(CRITICAL): Hello!\n" + (assert-equal "CRITICAL: Hello!\n" ;; skip over the time/date, since that will vary! (substring (get-output-string strport) 20)))) @@ -41,7 +41,7 @@ (set-default-logger! lgr) (log-msg 'CRITICAL "Hello!") (set-default-logger! #f) - (assert-equal "(CRITICAL): Hello!\n" + (assert-equal "CRITICAL: Hello!\n" ;; skip over the time/date, since that will vary! (substring (get-output-string strport) 20)))) @@ -50,7 +50,7 @@ (lgr (make <logger> #:handlers (list (make <port-log> #:port strport))))) (register-logger! "main" lgr) (log-msg (lookup-logger "main") 'CRITICAL "Hello!") - (assert-equal "(CRITICAL): Hello!\n" + (assert-equal "CRITICAL: Hello!\n" ;; skip over the time/date, since that will vary! (substring (get-output-string strport) 20)))) -- 2.41.0