diff options
author | Arun Isaac | 2023-12-01 22:41:17 +0000 |
---|---|---|
committer | Arun Isaac | 2023-12-01 22:54:33 +0000 |
commit | d63f2df9d10ab425930900283323aba4b96b8a8c (patch) | |
tree | 0ddef6c50b0ae1ba77bb465674b83599dc842ba1 /tests/utils.scm | |
parent | d5fadbd7d93fe047a37591a149bae007c359b88c (diff) | |
download | ccwl-d63f2df9d10ab425930900283323aba4b96b8a8c.tar.gz ccwl-d63f2df9d10ab425930900283323aba4b96b8a8c.tar.lz ccwl-d63f2df9d10ab425930900283323aba4b96b8a8c.zip |
ccwl: Deduplicate global workflow input keys across tee branches.
* ccwl/ccwl.scm (collect-steps): Deduplicate global workflow input
keys across branches of tees.
* tests/ccwl.scm (key, collect-steps): New variables.
("rename should work even on the final output of a
workflow"): Update order of elements in expected list.
("tee must deduplicate global workflow input keys"): New test.
* ccwl/utils.scm (append-mapn): Delete function.
* tests/utils.scm ("append-mapn"): Delete test.
Diffstat (limited to 'tests/utils.scm')
-rw-r--r-- | tests/utils.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 66220cc..50c3396 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -197,15 +197,6 @@ (iota 5)))) (list squares cubes))) -(test-equal "append-mapn" - '((0 0 1 1 2 4 3 9 4 16) - (0 0 1 1 2 8 3 27 4 64)) - (let ((squares cubes (append-mapn (lambda (n) - (values (list n (expt n 2)) - (list n (expt n 3)))) - (iota 5)))) - (list squares cubes))) - (test-equal "foldn" '(45 285) (let ((sum sum-of-squares |