summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--build-aux/test-driver.scm.in3
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)))