summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ccwl.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index 2207200..4f10450 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -145,4 +145,13 @@
(print)
#:message message)))
+(test-assert "step with expression that evaluates to a command but without a step identifier must raise a &ccwl-violation condition"
+ (guard (exception
+ (else (ccwl-violation? exception)))
+ (begin (macroexpand
+ '(workflow ((message #:type string))
+ ((and #t print)
+ #:message message)))
+ #f)))
+
(test-end "ccwl")