aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/ccwl.scm4
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.