~ruther/guix-local: build: test-driver.scm: Fix test-reporting with guile 3.0.11.

a4d39d2cbedfd18a7c4205c155375f6ba49aec54 — Dariqq a month ago 92e2e48

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

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>

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M build-aux/test-driver.scm

M build-aux/test-driver.scm => build-aux/test-driver.scm +2 -2

@@ 3,7 3,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
 !#
 ;;;; 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 © 2021 Maxim Cournoyer <maxim@guixotic.coop>


@@ 151,7 151,7 @@ cases based on their names."
                 (and show-duration? time-elapsed-seconds)))
 
       (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~%"
                 (string-append (result 'source-file) ":"
                                (number->string (result 'source-line))))