aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ccwl.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index e876912..d3e1a96 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -308,4 +308,11 @@
'(workflow ((foo #:type string))
(rename #:bar foobar))))
+(test-condition "commands with non-string #:separator parameters must raise a &ccwl-violation condition"
+ (ccwl-violation-with-message?
+ "Invalid #:separator parameter ~a. #:separator parameter must be a string.")
+ (macroexpand
+ '(command #:inputs (messages #:type (array string))
+ #:run "echo" (array messages #:separator foo))))
+
(test-end "ccwl")