diff options
| -rw-r--r-- | build-aux/test-driver.scm.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/build-aux/test-driver.scm.in b/build-aux/test-driver.scm.in index 2ee784c..c840c9e 100644 --- a/build-aux/test-driver.scm.in +++ b/build-aux/test-driver.scm.in @@ -45,12 +45,13 @@ (define red (cut color 31 <>)) (define green (cut color 32 <>)) +(define magenta (cut color 35 <>)) (define (my-gnu-runner log-port trs-port) (let ((runner (test-runner-null))) (test-runner-on-group-begin! runner (lambda (runner suite-name count) - (format #t "%%%% ~a~%" suite-name))) + (format #t (magenta "%%%% ~a~%") suite-name))) (test-runner-on-group-end! runner (lambda _ (newline))) |