diff options
| author | Arun Isaac | 2025-08-24 17:05:33 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-08-24 17:05:33 +0100 |
| commit | 208da3dc41d58b1d62d1d25e5d972760ff22e8f4 (patch) | |
| tree | 97ab246530cd91086d279b4f807f8ba9864cc8a9 | |
| parent | 716ce5c6f32c29ccebdce08701a4505818fe0dd9 (diff) | |
| download | ravanan-208da3dc41d58b1d62d1d25e5d972760ff22e8f4.tar.gz ravanan-208da3dc41d58b1d62d1d25e5d972760ff22e8f4.tar.lz ravanan-208da3dc41d58b1d62d1d25e5d972760ff22e8f4.zip | |
guix: Do not pass -S flag when skip-tests is empty list.
| -rw-r--r-- | .guix/cwl-conformance.scm | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/.guix/cwl-conformance.scm b/.guix/cwl-conformance.scm index 12204d0..fd5cc7a 100644 --- a/.guix/cwl-conformance.scm +++ b/.guix/cwl-conformance.scm @@ -25,7 +25,8 @@ #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix profiles) - #:use-module (guix utils)) + #:use-module (guix utils) + #:use-module (ice-9 match)) (define* (cwltest-suite-gexp manifest-file #:key (skip-tests '())) (with-imported-modules '((guix build utils)) @@ -42,16 +43,19 @@ ;; https://github.com/common-workflow-language/cwltest/issues/249 (mkdir "tmpdir") (setenv "TMPDIR" "tmpdir") - (invoke #$(file-append cwltest "/bin/cwltest") - "--test" cwltest-suite - ;; With these tests, evil things happen and too much - ;; memory is consumed. So, disable for now. - "-S" (string-join skip-tests ",") - "--tool" #$(file-append ravanan "/bin/ravanan") - "--badgedir" "badges" - "--" - "--store=store" - (string-append "--guix-manifest=" #$manifest-file))) + (apply invoke + #$(file-append cwltest "/bin/cwltest") + "--test" cwltest-suite + "--tool" #$(file-append ravanan "/bin/ravanan") + "--badgedir" "badges" + ;; With these tests, evil things happen and too much memory is + ;; consumed. So, disable for now. + (append '#$(match skip-tests + (() '()) + (_ (list "-S" (string-join skip-tests ",")))) + (list "--" + "--store=store" + (string-append "--guix-manifest=" #$manifest-file))))) ((program _ ...) (format (current-error-port) "Usage: ~a CWLTEST-SUITE~%" |