From cb877c140863b200527ef1c3d26f531c6bb8438e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 19 Jul 2021 15:12:09 +0530
Subject: build-aux: Color test suite names.

* build-aux/test-driver.scm.in (magenta): New function.
(my-gnu-runner): Color test suite name in magenta.
---
 build-aux/test-driver.scm.in | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'build-aux')

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)))
-- 
cgit v1.2.3