diff options
| author | Arun Isaac | 2023-10-17 19:16:50 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-10-17 19:16:50 +0100 |
| commit | 2853ef38886e3ffd7f12252ab17fb2d4e29614e2 (patch) | |
| tree | 1b2b7cf2a1ee1f2d3d92cccbcacba53abb843eed /tests | |
| parent | 4d33357a6540b678e41d66dbd3563709b34bbe55 (diff) | |
| download | ccwl-2853ef38886e3ffd7f12252ab17fb2d4e29614e2.tar.gz ccwl-2853ef38886e3ffd7f12252ab17fb2d4e29614e2.tar.lz ccwl-2853ef38886e3ffd7f12252ab17fb2d4e29614e2.zip | |
ccwl: Support staging input files.
* ccwl/ccwl.scm (<input>)[stage?]: New field.
* ccwl/ccwl.scm (input): Add #:stage argument.
* ccwl/cwl.scm (command->cwl-scm): Serialize requirements for staged
inputs.
* doc/ccwl.skb (Cookbook)[Stage input files]: New section.
* tests/ccwl.scm ("inputs with an invalid #:stage? parameter must
raise a &ccwl-violation condition"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ccwl.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index b26e854..e60a035 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -274,4 +274,15 @@ #:run "echo" (-x number))) #f))) +(test-assert "inputs with an invalid #:stage? parameter must raise a &ccwl-violation condition" + (guard (exception + (else (and (ccwl-violation? exception) + (string=? (formatted-message-format exception) + "Invalid #:stage? parameter ~a. #:stage? must either be #t or #f.")))) + (begin (macroexpand + '(command #:inputs (file #:type File + #:stage? 42) + #:run "cat" file)) + #f))) + (test-end "ccwl") |