06/08: gnu: glslang: Give more information on test failures.

[guix-commits]

efraim pushed a commit to branch mesa-updates
in repository guix.

commit 1e58b81da9958b454cd10c8aff73829f26d22392
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Apr 7 09:49:30 2024 +0300

    gnu: glslang: Give more information on test failures.
    
    * gnu/packages/vulkan.scm (glslang)[arguments]: Adjust the 'check phase
    to run the tests in parallel, rerun tests which fail and to provide
    information when a test fails.
    
    Change-Id: I13962bb503a20338901cdd878d356e1bcce7f2eb
---
 gnu/packages/vulkan.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/vulkan.scm b/gnu/packages/vulkan.scm
index 997e653010..4a1d5914ce 100644
--- a/gnu/packages/vulkan.scm
+++ b/gnu/packages/vulkan.scm
@@ -207,9 +207,14 @@ translation between LLVM IR and SPIR-V.")
                                  '()))
        #:phases (modify-phases %standard-phases
                   (replace 'check
-                    (lambda* (#:key tests? #:allow-other-keys)
+                    (lambda* (#:key tests? parallel-tests? #:allow-other-keys)
                       (when tests?
-                        (invoke "ctest")))))))
+                        (invoke "ctest"
+                                "-j" (if parallel-tests?
+                                       (number->string (parallel-job-count))
+                                       "1")
+                                "--rerun-failed"
+                                "--output-on-failure")))))))
     (inputs (list spirv-tools))
     (native-inputs
      (list pkg-config python))