From 426201609e13d47960a922456cbbddf61cde3330 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 30 Nov 2025 01:00:10 +0000
Subject: e2e-tests: Add example Hello World workflow from the documentation.

We want to ensure that the Hello World workflow in our README docs
always works!
---
 .guix/e2e-tests.scm | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

(limited to '.guix/e2e-tests.scm')

diff --git a/.guix/e2e-tests.scm b/.guix/e2e-tests.scm
index cbade68..ef5846a 100644
--- a/.guix/e2e-tests.scm
+++ b/.guix/e2e-tests.scm
@@ -45,7 +45,7 @@
        (modify-inputs (package-native-inputs guix:ccwl)
          (prepend guile-run64))))))
 
-(define (e2e-tools-gexp sources-directory)
+(define (e2e-tools-gexp sources-directory doc-hello-world)
   (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (rnrs io ports)
@@ -83,20 +83,31 @@
         ;; Copy CWL files.
         (for-each (lambda (cwl-file)
                     (copy-file cwl-file
-                               (string-append #$output (basename cwl-file))))
-                  (find-files #$sources-directory "\\.cwl$")))))
+                               (string-append #$output "/" (basename cwl-file))))
+                  (find-files #$sources-directory "\\.cwl$"))
+        ;; Copy Hello World workflow from documentation.
+        (copy-file #$doc-hello-world
+                   (string-append #$output "/doc-hello-world.cwl")))))
 
 (define e2e-tools
   (computed-file "e2e-tools"
                  (e2e-tools-gexp (local-file "../e2e-tests/tools"
-                                             #:recursive? #t))))
+                                             #:recursive? #t)
+                                 (local-file "../doc/hello-world.cwl"))))
+
+(define e2e-jobs
+  (directory-union "e2e-jobs"
+                   (list (local-file "../e2e-tests/jobs"
+                                     #:recursive? #t)
+                         (file-union "doc-hello-world-inputs"
+                                     `(("doc-hello-world.yaml"
+                                        ,(local-file "../doc/hello-world-inputs.yaml")))))))
 
 (define e2e-test-suite
   (file-union "e2e-test-suite"
               `(("tests.yaml" ,(local-file "../e2e-tests/tests.yaml"))
                 ("tools" ,e2e-tools)
-                ("jobs" ,(local-file "../e2e-tests/jobs"
-                                     #:recursive? #t)))))
+                ("jobs" ,e2e-jobs))))
 
 (define-public e2e-tests
   (program-file "e2e-tests"
-- 
cgit 1.4.1