diff options
| author | Arun Isaac | 2021-07-19 15:12:09 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-07-19 15:12:09 +0530 |
| commit | cb877c140863b200527ef1c3d26f531c6bb8438e (patch) | |
| tree | 76c5767d2fa9c2f2f181af0e6bc5a5e545c4fc26 | |
| parent | 13b77b09e28a92f4f8dc96d6ca54221472eac848 (diff) | |
| download | ccwl-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.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))) |