From df96551cc82131be944dca1c8be765eba84b580e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 19 Dec 2025 18:58:34 +0000
Subject: tests: Prefer test-equal to test-assert.

---
 tests/ccwl.scm | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

(limited to 'tests')

diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index e10d9f2..4aa5801 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -61,17 +61,14 @@
 
 (test-begin "ccwl")
 
-(test-assert "stdin input should not have inputBinding"
-  (not (assoc-ref
-        (assoc-ref
-         (assoc-ref
-          ((@@ (ccwl cwl) command->cwl-scm)
-           (command #:inputs (file #:type File)
-                    #:run "wc" "-c"
-                    #:stdin file))
-          'inputs)
-         'file)
-        'inputBinding)))
+(test-equal "stdin input should not have inputBinding"
+  '((file (type . File)))
+  (assoc-ref
+   ((@@ (ccwl cwl) command->cwl-scm)
+    (command #:inputs (file #:type File)
+             #:run "wc" "-c"
+             #:stdin file))
+   'inputs))
 
 (test-equal "read all forms of inputs and outputs from a CWL workflow"
   '(((spam string))
-- 
cgit 1.4.1