aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-11-21 14:22:47 +0000
committerArun Isaac2023-11-21 14:22:47 +0000
commit980dac1aa212e27ad6f512acb54c93010fd06932 (patch)
treef582575a1333c85173d0dd597515eaed28281300
parent2f78bb9402e214bcab92e315c3dc8def424d343f (diff)
downloadccwl-980dac1aa212e27ad6f512acb54c93010fd06932.tar.gz
ccwl-980dac1aa212e27ad6f512acb54c93010fd06932.tar.lz
ccwl-980dac1aa212e27ad6f512acb54c93010fd06932.zip
tests: Report non-keyword arguments to rename.
* tests/ccwl.scm ("rename with non-keyword arguments must raise a &ccwl-violation condition"): New test.
-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")