diff options
Diffstat (limited to '.guix')
| -rw-r--r-- | .guix/cwl-conformance.scm | 96 |
1 files changed, 96 insertions, 0 deletions
diff --git a/.guix/cwl-conformance.scm b/.guix/cwl-conformance.scm new file mode 100644 index 0000000..c6e873b --- /dev/null +++ b/.guix/cwl-conformance.scm @@ -0,0 +1,96 @@ +;;; ravanan --- High-reproducibility CWL runner powered by Guix +;;; Copyright © 2025 Arun Isaac <arunisaac@systemreboot.net> +;;; +;;; This file is part of ravanan. +;;; +;;; ravanan is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; ravanan is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with ravanan. If not, see <https://www.gnu.org/licenses/>. + +(define-module (cwl-conformance) + #:use-module ((cwltest-package) #:select (cwltest)) + #:use-module ((ravanan-package) #:select (ravanan)) + #:use-module ((gnu packages nss) #:select (nss-certs)) + #:use-module ((gnu packages python) #:select (python)) + #:use-module ((gnu packages python-web) #:select (python-pybadges)) + #:use-module (guix gexp) + #:use-module (guix packages) + #:use-module (guix profiles) + #:use-module (guix utils)) + +(define cwl-v1.2-conformance-gexp + (with-imported-modules '((guix build utils)) + #~(begin + (use-modules (guix build utils) + (ice-9 match)) + + (match (command-line) + ((_ cwl-v1.2-repo) + (for-each mkdir + (list "tmpdir" "store")) + (setenv "TMPDIR" "tmpdir") + (invoke #$(file-append cwltest "/bin/cwltest") + "--test" (string-append cwl-v1.2-repo "/conformance_tests.yaml") + ;; With these tests, evil things happen and too much + ;; memory is consumed. So, disable for now. + "-S" (string-join (list "env_home_tmpdir" + "env_home_tmpdir_docker" + "env_home_tmpdir_docker_no_return_code") + ",") + "--tool" #$(file-append ravanan "/bin/ravanan") + "--badgedir" "badges" + "--" + "--store=store" + (string-append "--guix-manifest=" + #$(local-file "../cwl-conformance/cwltest-manifest.scm")))) + ((program _ ...) + (format (current-error-port) + "Usage: ~a CWL-V1.2-REPO~%" + program) + (exit #f)))))) + +(define-public cwl-v1.2-conformance + (program-file "cwl-v1.2-conformance" + cwl-v1.2-conformance-gexp)) + +(define generate-badges-gexp + (with-imported-modules '((guix build utils)) + #~(begin + (use-modules (guix build utils) + (ice-9 match)) + + (match (command-line) + ((_ cwltest-badgedir output-directory) + (set-path-environment-variable + "GUIX_PYTHONPATH" + '(#$(string-append "lib/python" + (version-major+minor (package-version python)) + "/site-packages")) + (list #$(profile + (content (packages->manifest + (list python python-pybadges)))))) + (invoke #$(file-append python "/bin/python3") + #$(local-file "../cwl-conformance/badgegen.py") + cwltest-badgedir + #$(local-file "../cwl-conformance/commonwl.svg") + output-directory)) + ((program _ ...) + (format (current-error-port) + "Usage: ~a CWLTEST_BADGEDIR OUTPUT-DIRECTORY~%" + program) + (exit #f)))))) + +(define-public generate-badges + (program-file "generate-badges" + generate-badges-gexp)) + +cwl-v1.2-conformance |