diff options
| -rw-r--r-- | tests/ccwl.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index d3e1a96..9e73c50 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -133,14 +133,14 @@ #:outputs (printed-message #:type stdout))) (test-equal "rename should work even on the final output of a workflow" + (list 'out1 'printed-message) (map output-id (workflow-outputs (workflow ((message1 #:type string) (message2 #:type string)) (tee (pipe (print (print1) #:message message1) (rename #:out1 printed-message)) - (print (print2) #:message message2))))) - (list 'out1 'printed-message)) + (print (print2) #:message message2)))))) ;; TODO: Define this in the lexical scope of the test that requires ;; it. |