diff options
| author | Arun Isaac | 2025-12-19 18:58:34 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-12-19 20:13:39 +0000 |
| commit | df96551cc82131be944dca1c8be765eba84b580e (patch) | |
| tree | be7e0864a7fab35e76a63e514c1f0a63e8f9fca5 | |
| parent | 191fffe866f720d83b65dcc9351c50d83ca9a5b1 (diff) | |
| download | ccwl-df96551cc82131be944dca1c8be765eba84b580e.tar.gz ccwl-df96551cc82131be944dca1c8be765eba84b580e.tar.lz ccwl-df96551cc82131be944dca1c8be765eba84b580e.zip | |
tests: Prefer test-equal to test-assert.
| -rw-r--r-- | tests/ccwl.scm | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index e10d9f2..4aa5801 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -61,17 +61,14 @@ (test-begin "ccwl") -(test-assert "stdin input should not have inputBinding" - (not (assoc-ref - (assoc-ref - (assoc-ref - ((@@ (ccwl cwl) command->cwl-scm) - (command #:inputs (file #:type File) - #:run "wc" "-c" - #:stdin file)) - 'inputs) - 'file) - 'inputBinding))) +(test-equal "stdin input should not have inputBinding" + '((file (type . File))) + (assoc-ref + ((@@ (ccwl cwl) command->cwl-scm) + (command #:inputs (file #:type File) + #:run "wc" "-c" + #:stdin file)) + 'inputs)) (test-equal "read all forms of inputs and outputs from a CWL workflow" '(((spam string)) |