08/12: gnu: curl: Run tests in parallel.

[guix-commits]

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

commit d70f2b788e56545f93dc24238d2617e20fde7460
Author: John Kehayias <john.kehayias@protonmail.com>
AuthorDate: Sun Nov 5 17:17:02 2023 -0500

    gnu: curl: Run tests in parallel.
    
    * gnu/packages/curl.scm (curl)[arguments]: Respect PARALLEL-TESTS? in check
    phase, by setting TFLAGS (curl's test flags).
    
    Change-Id: I54dfe32b757824fd3d2b89d10b88315c7e8b8d2a
---
 gnu/packages/curl.scm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/curl.scm b/gnu/packages/curl.scm
index ea1c2c9924..346bfc4e61 100644
--- a/gnu/packages/curl.scm
+++ b/gnu/packages/curl.scm
@@ -118,15 +118,22 @@
               (rename-file (string-append #$output "/share/man/man3")
                            (string-append #$output:doc "/share/man/man3"))))
           (replace 'check
-            (lambda* (#:key tests? make-flags #:allow-other-keys)
+            (lambda* (#:key tests? parallel-tests? make-flags 
#:allow-other-keys)
               (substitute* "tests/runtests.pl"
                 (("/bin/sh") (which "sh")))
               (when tests?
-                (let ((arguments `("-C" "tests" "test"
-                                   ,@(if #$(system-hurd?)
+                (let* ((job-count (string-append
+                                   "-j"
+                                   (if parallel-tests?
+                                       (number->string (parallel-job-count))
+                                       "1")))
+                       (arguments `("-C" "tests" "test"
+                                    ,@make-flags
+                                    ,(if #$(system-hurd?)
                                          ;; protocol FAIL
-                                         (list make-flags "TFLAGS=~1474")
-                                         make-flags))))
+                                         (string-append "TFLAGS=\"~1474 "
+                                                        job-count "\"")
+                                         (string-append "TFLAGS=" 
job-count)))))
                   ;; The top-level "make check" does "make -C tests 
quiet-test", which
                   ;; is too quiet.  Use the "test" target instead, which is 
more
                   ;; verbose.