summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ccwl.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index e64713c..cd78739 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -175,4 +175,14 @@
(print #:message mess)))
#f)))
+(test-assert "unrecognized workflow syntaxes must raise a &ccwl-violation condition"
+ (guard (exception
+ (else (ccwl-violation? exception)))
+ (begin (macroexpand
+ '(workflow ((message1 #:type string)
+ (message2 #:type string))
+ (print (print1) #:message message1)
+ (print (print2) #:message message2)))
+ #f)))
+
(test-end "ccwl")