mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
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>
This commit is contained in:
@@ -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))))
|
||||
|
||||
Reference in New Issue
Block a user