diff options
| author | Arun Isaac | 2026-06-24 22:09:44 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-06-24 22:09:44 +0100 |
| commit | 4fd05cb575292ef82cdc463b9f7aa5842e2b023e (patch) | |
| tree | 1311d32b688f9a4e47ffb90078e833bc5a387bbb /tests/ccwl.scm | |
| parent | cefbe4d5e164cd0caf70a4df5a2bb6f4c12db641 (diff) | |
| download | ccwl-4fd05cb575292ef82cdc463b9f7aa5842e2b023e.tar.gz ccwl-4fd05cb575292ef82cdc463b9f7aa5842e2b023e.tar.lz ccwl-4fd05cb575292ef82cdc463b9f7aa5842e2b023e.zip | |
tests: Test for error on invalid #:separate flags.
Diffstat (limited to 'tests/ccwl.scm')
| -rw-r--r-- | tests/ccwl.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index 85ec322..ea14f86 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -331,6 +331,13 @@ '(command #:inputs (messages #:type (array string)) #:run "echo" (array messages #:separator foo)))) +(test-condition "Non-boolean #:separate? flag must raise a &ccwl-violation condition" + (ccwl-violation-with-message? + "Invalid #:separate? flag ~a. #:separate? flag must be a boolean.") + (macroexpand + '(command #:inputs (arg #:type string) + #:run "foo" ("-o" arg #:separate? bar)))) + (test-assert "tee must deduplicate global workflow input keys" (let ((keys steps (collect-steps #'(tee (print #:message message) (identity)) |