From 10db9e74f78a1c2a11933a7aabe731f83d06b459 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 2 Jul 2021 16:26:21 +0530
Subject: tests: Ensure stdin input has no inputBinding.

* tests/ccwl.scm: Import (ccwl ccwl)
("stdin input should not have inputBinding"): New test.
---
 tests/ccwl.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index d97c757..1bef07d 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -16,10 +16,22 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with ccwl.  If not, see <https://www.gnu.org/licenses/>.
 
-(use-modules (srfi srfi-64))
+(use-modules (srfi srfi-64)
+             (ccwl ccwl))
 
 (test-begin "ccwl")
 
-;; Add tests here when relevant.
+(test-assert "stdin input should not have inputBinding"
+  (not (assoc-ref
+      (assoc-ref
+       (assoc-ref
+        ((module-ref (resolve-module '(ccwl ccwl))
+                     'command->cwl)
+         (command #:inputs (file #:type 'File)
+                  #:run "wc" "-c"
+                  #:stdin file))
+        'inputs)
+       'file)
+      'inputBinding)))
 
 (test-end "ccwl")
-- 
cgit v1.2.3