tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 03:51:53 +02:00
Code Activity

build: test-driver.scm: Fix test-reporting with guile 3.0.11.

Browse Source 
With srfi-64 from guile 3.0.11 the test name is no longer in the
test-result-alist.

* build-aux/test-driver.scm (test-runner-gnu): Use test-runner-test-name to
access test-name.

Change-Id: I53d0fdd8db0d1af5e636e3f2a68280cd2bddfe4c
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #5836
Signed-off-by: Rutherther <rutherther@ditigal.xyz>
This commit is contained in:
Dariqq
2026-01-23 07:34:28 +00:00
committed by Rutherther
parent 92e2e4816c
commit a4d39d2cbe
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
build-aux/test-driver.scm
+2 -2
View File
@@ -3,7 +3,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
!# !#
;;;; test-driver.scm - Guile test driver for Automake testsuite harness ;;;; test-driver.scm - Guile test driver for Automake testsuite harness
(define script-version "2023-12-08.14") ;UTC (define script-version "2026-01-23.07") ;UTC
;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2021 Maxim Cournoyer <maxim@guixotic.coop> ;;; Copyright © 2021 Maxim Cournoyer <maxim@guixotic.coop>
@@ -151,7 +151,7 @@ cases based on their names."
(and show-duration? time-elapsed-seconds))) (and show-duration? time-elapsed-seconds)))
(unless (and errors-only? (not (test-failed? runner))) (unless (and errors-only? (not (test-failed? runner)))
(format #t "test-name: ~A~%" (result 'test-name)) (format #t "test-name: ~A~%" (test-runner-test-name runner))
(format #t "location: ~A~%" (format #t "location: ~A~%"
(string-append (result 'source-file) ":" (string-append (result 'source-file) ":"
(number->string (result 'source-line)))) (number->string (result 'source-line))))