diff options
author | Arun Isaac | 2023-11-16 13:35:40 +0000 |
---|---|---|
committer | Arun Isaac | 2023-11-16 13:59:33 +0000 |
commit | 900c76a29726778a34ba0cbeb832cddd618783f4 (patch) | |
tree | 817d51c15cd8d4c2ee88b6f9f018f16c20f47529 /tests/ccwl.scm | |
parent | 7d1cc9b535afeb6021bec83b3220928998361528 (diff) | |
download | ccwl-900c76a29726778a34ba0cbeb832cddd618783f4.tar.gz ccwl-900c76a29726778a34ba0cbeb832cddd618783f4.tar.lz ccwl-900c76a29726778a34ba0cbeb832cddd618783f4.zip |
ccwl: Support nested arrays.
* ccwl/ccwl.scm (construct-type-syntax): Construct types recursively
to support nested arrays.
(key->output): Recursively convert stdout types to File types.
* ccwl/cwl.scm (type->cwl): New function.
(input->cwl-scm, output->cwl-scm): Use type->cwl.
* tests/ccwl.scm (make-array-type): New function.
(construct-type-syntax-wrapper): New syntax.
("construct-type-syntax on primitive types", "construct-type-syntax on
array types", "construct-type-syntax on nested array types"): New
tests.
* tests/cwl.scm, doc/array-types.scm, doc/nested-array-types.scm: New
files.
* doc/ccwl.skb (Cookbook)[Array types]: New section.
Diffstat (limited to 'tests/ccwl.scm')
-rw-r--r-- | tests/ccwl.scm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index 117f93f..6890017 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -27,6 +27,16 @@ (define output (@@ (ccwl ccwl) output)) +(define make-array-type + (@@ (ccwl ccwl) make-array-type)) + +(define-syntax construct-type-syntax-wrapper + (lambda (x) + (syntax-case x () + ((_ type-spec) + ((@@ (ccwl ccwl) construct-type-syntax) + #'type-spec))))) + (test-begin "ccwl") (test-assert "stdin input should not have inputBinding" @@ -317,4 +327,16 @@ #:other '((secondaryFiles . ".fai")))) #f))) +(test-eq "construct-type-syntax on primitive types" + 'File + (construct-type-syntax-wrapper File)) + +(test-eq "construct-type-syntax on array types" + (make-array-type 'File) + (construct-type-syntax-wrapper (array File))) + +(test-eq "construct-type-syntax on nested array types" + (make-array-type (make-array-type 'File)) + (construct-type-syntax-wrapper (array (array File)))) + (test-end "ccwl") |