summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-07-19 15:12:09 +0530
committerArun Isaac2021-07-19 15:12:09 +0530
commitcb877c140863b200527ef1c3d26f531c6bb8438e (patch)
tree76c5767d2fa9c2f2f181af0e6bc5a5e545c4fc26
parent13b77b09e28a92f4f8dc96d6ca54221472eac848 (diff)
downloadccwl-cb877c140863b200527ef1c3d26f531c6bb8438e.tar.gz
ccwl-cb877c140863b200527ef1c3d26f531c6bb8438e.tar.lz
ccwl-cb877c140863b200527ef1c3d26f531c6bb8438e.zip
build-aux: Color test suite names.
* build-aux/test-driver.scm.in (magenta): New function. (my-gnu-runner): Color test suite name in magenta.
-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)))