summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbuild-aux/test-driver.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm
index b74f8a23c71..7d3d82ae23e 100755
--- a/build-aux/test-driver.scm
+++ b/build-aux/test-driver.scm
@@ -3,7 +3,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
3!# 3!#
4;;;; test-driver.scm - Guile test driver for Automake testsuite harness 4;;;; test-driver.scm - Guile test driver for Automake testsuite harness
5 5
6(define script-version "2026-03-20.08") ;UTC 6(define script-version "2026-03-21.02") ;UTC
7 7
8;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> 8;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
9;;; Copyright © 2021 Maxim Cournoyer <maxim@guixotic.coop> 9;;; Copyright © 2021 Maxim Cournoyer <maxim@guixotic.coop>
@@ -197,7 +197,7 @@ called to do the final reporting."
197 (positive? (test-runner-xpass-count runner)))) 197 (positive? (test-runner-xpass-count runner))))
198 (skip (or (positive? (test-runner-skip-count runner)) 198 (skip (or (positive? (test-runner-skip-count runner))
199 (positive? (test-runner-xfail-count runner))))) 199 (positive? (test-runner-xfail-count runner)))))
200 (format trs-port ":test-global-result: ~{~A~^,~}~%" 200 (format trs-port ":global-test-result: ~{~A~^,~}~%"
201 (filter-map (λ (proc str) 201 (filter-map (λ (proc str)
202 (let ((n (proc runner))) 202 (let ((n (proc runner)))
203 (if (positive? n) str #f))) 203 (if (positive? n) str #f)))