aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/ccwl.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index af76372..e64713c 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -167,4 +167,12 @@
(workflow ()
(print #:message "Hello")))
+(test-assert "step supplied with an unknown key must raise a &ccwl-violation condition"
+ (guard (exception
+ (else (ccwl-violation? exception)))
+ (begin (macroexpand
+ '(workflow ((message #:type string))
+ (print #:message mess)))
+ #f)))
+
(test-end "ccwl")