ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build: test-driver.scm: Enable colored test results by default.

Browse source 
The Automake parallel test harness does its own smart detection of the
terminal color capability and always provides the --color-tests argument to
the driver.  This change defaults the --color-tests argument to true when the
test driver is run on its own (not via Automake).

* build-aux/test-driver.scm (main): Set the default value of the --color-tests
argument to true when it's not explicitly provided.
This commit is contained in:
Maxim Cournoyer 2021-01-16 22:32:20 -05:00
parent 13f299b2c9
commit 346210b1b2
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
build-aux/test-driver.scm
View file

@ -163,14 +163,17 @@ (define (main . args)
(let ((log (and=> (option 'log-file #f) (cut open-file <> "w0"))) (let ((log (and=> (option 'log-file #f) (cut open-file <> "w0")))
(trs (and=> (option 'trs-file #f) (cut open-file <> "wl"))) (trs (and=> (option 'trs-file #f) (cut open-file <> "wl")))
(out (duplicate-port (current-output-port) "wl")) (out (duplicate-port (current-output-port) "wl"))
(test-name (option 'test-name #f))) (test-name (option 'test-name #f))
(color-tests (if (assoc 'color-tests opts)
(option->boolean opts 'color-tests)
#t)))
(when log (when log
(redirect-port log (current-output-port)) (redirect-port log (current-output-port))
(redirect-port log (current-warning-port)) (redirect-port log (current-warning-port))
(redirect-port log (current-error-port))) (redirect-port log (current-error-port)))
(test-with-runner (test-with-runner
(test-runner-gnu test-name (test-runner-gnu test-name
#:color? (option->boolean opts 'color-tests) #:color? color-tests
#:brief? (option->boolean opts 'brief) #:brief? (option->boolean opts 'brief)
#:out-port out #:trs-port trs) #:out-port out #:trs-port trs)
(load-from-path test-name)) (load-from-path test-name))