diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ccwl.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index 8f09fea..5d8a17f 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -34,4 +34,18 @@ 'file) 'inputBinding))) +(test-equal "read all forms of inputs and outputs from a CWL workflow" + '(((spam string)) + ((ham stdout) + (eggs stdout))) + (let ((cwl-workflow (cwl-workflow "tests/input-output-parameters.cwl"))) + (list (map (lambda (input) + (list (input-id input) + (input-type input))) + (cwl-workflow-inputs cwl-workflow)) + (map (lambda (output) + (list (output-id output) + (output-type output))) + (cwl-workflow-outputs cwl-workflow))))) + (test-end "ccwl") |