From a4d39d2cbedfd18a7c4205c155375f6ba49aec54 Mon Sep 17 00:00:00 2001 From: Dariqq Date: Fri, 23 Jan 2026 07:34:28 +0000 Subject: [PATCH] build: test-driver.scm: Fix test-reporting with guile 3.0.11. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 Merges: #5836 Signed-off-by: Rutherther --- build-aux/test-driver.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm index 1c4d7b9876b11e66194d60bb183782b130c47bf3..7c0c403f7ab465d241a7984b20ac654e854d02a0 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" "$@" !# ;;;; 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 ;;; Copyright © 2021 Maxim Cournoyer @@ -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))))