From 980dac1aa212e27ad6f512acb54c93010fd06932 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 21 Nov 2023 14:22:47 +0000
Subject: tests: Report non-keyword arguments to rename.

* tests/ccwl.scm ("rename with non-keyword arguments must raise a
&ccwl-violation condition"): New test.
---
 tests/ccwl.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'tests')

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