guix: Add CWL conformance test suite scripts.

These scripts were a part of the CI server system definition, and out
of reach of ravanan maintainers. We move them here since it's easier
to keep updated and within the reach of ravanan maintainers to modify
as they please.

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