summaryrefslogtreecommitdiff
path: root/build-aux/test-driver.scm
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim@guixotic.coop>2026-03-21 11:29:56 +0900
committerMaxim Cournoyer <maxim@guixotic.coop>2026-03-21 11:32:15 +0900
commit15cd6eb94ce50a55116cec2071fc4f2ab3367b8c (patch)
tree4784d866c6ddbf55ba14c63e5919f586cebb27c5 /build-aux/test-driver.scm
parent4ac9f297d35291e9a550a5f147c8307253ef9d1b (diff)
build-aux: Revert to :global-test-result: in test-driver.scm.
This follows clarification with upstream on the valid name to use: <https://lists.gnu.org/archive/html/automake/2026-03/msg00005.html>. The change was made in the recent commit ef4ba3191f01. * build-aux/test-driver.scm (test-runner-gnu): Revert global test result key to ':global-test-result:'. Change-Id: If0eca05b8b57f1fd5d848e82bc789c43640d3caf
Diffstat (limited to 'build-aux/test-driver.scm')
-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)))