diff options
| author | Arun Isaac | 2026-01-27 01:43:03 +0000 |
|---|---|---|
| committer | Arun Isaac | 2026-01-27 01:48:20 +0000 |
| commit | 039b396088d086335925c3add556d4b2afae2ae1 (patch) | |
| tree | d13fbdc84be45211b478316bd13faf6e2528f521 /tests/ccwl.scm | |
| parent | 7da2555b8b014a5801d15dc9bb1657274bd579e4 (diff) | |
| download | ccwl-039b396088d086335925c3add556d4b2afae2ae1.tar.gz ccwl-039b396088d086335925c3add556d4b2afae2ae1.tar.lz ccwl-039b396088d086335925c3add556d4b2afae2ae1.zip | |
ccwl: Allow literals as arguments to workflows, not just commands.
Diffstat (limited to 'tests/ccwl.scm')
| -rw-r--r-- | tests/ccwl.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index 4aa5801..85ec322 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -1,5 +1,5 @@ ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2021–2025 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2021–2026 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ccwl. ;;; @@ -187,6 +187,16 @@ (workflow () (print-int #:number 42))) +;; TODO: Define this in the lexical scope of the test that requires +;; it. +(define print-workflow + (workflow ((message #:type string)) + (print #:message message))) + +(test-assert "allow literals as arguments to workflows" + (workflow () + (print-workflow #:message "foo"))) + (test-condition "step supplied with an unknown key must raise a &ccwl-violation condition" ccwl-violation? (macroexpand |