aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/ccwl.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index d325e57..9e09a16 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -294,4 +294,11 @@
(make-array-type (make-array-type 'File))
(construct-type-syntax-wrapper (array (array File))))
+(test-condition "rename with non-keyword arguments must raise a &ccwl-violation condition"
+ (ccwl-violation-with-message?
+ "Expected keyword (for example: #:foo, #:bar)")
+ (macroexpand
+ '(workflow ((message #:type string))
+ (rename (foo) #:foo message))))
+
(test-end "ccwl")