From 8465cbf1923e6e8e7dde682eb06875970762b649 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 13 Oct 2023 23:52:08 +0100
Subject: tests: Raise a &ccwl-violation on unknown keys.

* tests/ccwl.scm ("step supplied with an unknown key must raise a
&ccwl-violation condition"): New test.
---
 tests/ccwl.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tests')

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")
-- 
cgit v1.2.3