diff options
| author | Arun Isaac | 2025-11-15 20:52:05 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-11-16 22:43:00 +0000 |
| commit | c41a2d37f09c7e479640521baf2a612f6a77669f (patch) | |
| tree | 346c23790b5822cbcfb1225a539f399336f34f3d /.guix/cwl-conformance.scm | |
| parent | a39bc5776c9a93492ef0cbafb44b354d78492e72 (diff) | |
| download | ravanan-c41a2d37f09c7e479640521baf2a612f6a77669f.tar.gz ravanan-c41a2d37f09c7e479640521baf2a612f6a77669f.tar.lz ravanan-c41a2d37f09c7e479640521baf2a612f6a77669f.zip | |
guix: Accept additional cwltest arguments.
Diffstat (limited to '.guix/cwl-conformance.scm')
| -rw-r--r-- | .guix/cwl-conformance.scm | 43 |
1 files changed, 23 insertions, 20 deletions
diff --git a/.guix/cwl-conformance.scm b/.guix/cwl-conformance.scm index 3e25c71..b71821e 100644 --- a/.guix/cwl-conformance.scm +++ b/.guix/cwl-conformance.scm @@ -35,26 +35,29 @@ (use-modules (guix build utils) (ice-9 match)) - ;; Guix peeks into HOME. - (setenv "HOME" (getcwd)) - ;; cwltest writes out output directories to TMPDIR, but does not clean - ;; up after. So, we set TMPDIR to our own temporary directory that we - ;; can manage easily. See pending issue on cleaning up temporary output - ;; directories: - ;; https://github.com/common-workflow-language/cwltest/issues/249 - (mkdir "tmpdir") - (setenv "TMPDIR" "tmpdir") - (apply invoke - #$(file-append cwltest "/bin/cwltest") - "--test" #$cwltest-suite - "--tool" #$(file-append ravanan "/bin/ravanan") - "--badgedir" "badges" - (append '#$(match skip-tests - (() '()) - (_ (list "-S" (string-join skip-tests ",")))) - (list "--" - "--store=store" - (string-append "--guix-manifest=" #$manifest-file))))))) + (match (command-line) + ((_ cwltest-args ...) + ;; Guix peeks into HOME. + (setenv "HOME" (getcwd)) + ;; cwltest writes out output directories to TMPDIR, but does not + ;; clean up after. So, we set TMPDIR to our own temporary directory + ;; that we can manage easily. See pending issue on cleaning up + ;; temporary output directories: + ;; https://github.com/common-workflow-language/cwltest/issues/249 + (mkdir "tmpdir") + (setenv "TMPDIR" "tmpdir") + (apply invoke + #$(file-append cwltest "/bin/cwltest") + "--test" #$cwltest-suite + "--tool" #$(file-append ravanan "/bin/ravanan") + "--badgedir" "badges" + (append '#$(match skip-tests + (() '()) + (_ (list "-S" (string-join skip-tests ",")))) + cwltest-args + (list "--" + "--store=store" + (string-append "--guix-manifest=" #$manifest-file))))))))) (define cwl-v1.2-conformance-suite (let ((version "1.2.1")) |