diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2026-03-21 11:29:56 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2026-03-21 11:32:15 +0900 |
| commit | 15cd6eb94ce50a55116cec2071fc4f2ab3367b8c (patch) | |
| tree | 4784d866c6ddbf55ba14c63e5919f586cebb27c5 /build-aux/test-driver.scm | |
| parent | 4ac9f297d35291e9a550a5f147c8307253ef9d1b (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-x | build-aux/test-driver.scm | 4 |
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))) |
