From 4fd05cb575292ef82cdc463b9f7aa5842e2b023e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 24 Jun 2026 22:09:44 +0100
Subject: tests: Test for error on invalid #:separate flags.

---
 tests/ccwl.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'tests')

diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index 85ec322..ea14f86 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -331,6 +331,13 @@
    '(command #:inputs (messages #:type (array string))
              #:run "echo" (array messages #:separator foo))))
 
+(test-condition "Non-boolean #:separate? flag must raise a &ccwl-violation condition"
+  (ccwl-violation-with-message?
+   "Invalid #:separate? flag ~a. #:separate? flag must be a boolean.")
+  (macroexpand
+   '(command #:inputs (arg #:type string)
+             #:run "foo" ("-o" arg #:separate? bar))))
+
 (test-assert "tee must deduplicate global workflow input keys"
   (let ((keys steps (collect-steps #'(tee (print #:message message)
                                           (identity))
-- 
cgit 1.4.1