03/04: build-aux: Add workaround for broken --select in test-driver.scm.

[guix-commits]

guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 5fada9a751f114028d3e5c3a43b70d175c4c269a
Author: Maxim Cournoyer <ma...@guixotic.coop>
AuthorDate: Thu Mar 19 22:26:51 2026 +0900

    build-aux: Add workaround for broken --select in test-driver.scm.
    
    * build-aux/test-driver.scm (test-result-kind*): New procedure.
    (test-runner-gnu): Use it.
    
    Change-Id: I9cfd3289b05c77a7ab3c3f9e449b178fe31499fc
---
 build-aux/test-driver.scm | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm
index 25b4613bbc..7c211f51ef 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 "2026-01-23.07") ;UTC
+(define script-version "2026-03-19.13") ;UTC
 
 ;;; Copyright © 2015, 2016 Mathieu Lirzin <m...@gnu.org>
 ;;; Copyright © 2021 Maxim Cournoyer <ma...@guixotic.coop>
@@ -95,6 +95,15 @@ case is shown.\n"))
                        "")          ;no color
         result)))
 
+(define* (test-result-kind* #:optional (runner (test-runner-current)))
+  ;; TODO: Since Guile 3.0.11, the test-result-kind value of tests not
+  ;; selected by specifiers is #f instead of 'skip, which seems like a bug.
+  ;; Revert to use 'test-result-kind' after
+  ;; <https://codeberg.org/guile/guile/issues/133> is resolved and made and
+  ;; available in Guix.
+  (or (test-result-ref runner 'result-kind)
+      'skip))
+
 
 ;;;
 ;;; SRFI 64 custom test runner.
@@ -125,7 +134,7 @@ cases based on their names."
       (hash-set! test-cases-start-time test-case-name start-time)))
 
   (define (test-skipped? runner)
-    (eq? 'skip (test-result-kind runner)))
+    (eq? 'skip (test-result-kind* runner)))
 
   (define (test-failed? runner)
     (not (or (test-passed? runner)
@@ -146,7 +155,7 @@ cases based on their names."
       (unless (or brief? (and errors-only? (test-skipped? runner)))
         ;; Display the result of each test case on the console.
         (format out-port "~a: ~a - ~a ~@[[~,3fs]~]~%"
-                (result->string (test-result-kind runner) #:colorize? color?)
+                (result->string (test-result-kind* runner) #:colorize? color?)
                 test-name test-case-name
                 (and show-duration? time-elapsed-seconds)))
 
@@ -168,7 +177,7 @@ cases based on their names."
         (newline))
 
       (format trs-port ":test-result: ~A ~A [~,3fs]~%"
-              (result->string (test-result-kind runner))
+              (result->string (test-result-kind* runner))
               (test-runner-test-name runner) time-elapsed-seconds)))
 
   (define (test-on-group-end-gnu runner)