aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2021-07-02 16:26:21 +0530
committerArun Isaac2021-07-02 16:26:21 +0530
commit10db9e74f78a1c2a11933a7aabe731f83d06b459 (patch)
treeeb5758f3b9aa20f1b3b504584be7319c1b3d8e85 /tests
parent3a82e006a0d3c1e951559dfe9c8c7a08f1149bec (diff)
downloadccwl-10db9e74f78a1c2a11933a7aabe731f83d06b459.tar.gz
ccwl-10db9e74f78a1c2a11933a7aabe731f83d06b459.tar.lz
ccwl-10db9e74f78a1c2a11933a7aabe731f83d06b459.zip
tests: Ensure stdin input has no inputBinding.
* tests/ccwl.scm: Import (ccwl ccwl) ("stdin input should not have inputBinding"): New test.
Diffstat (limited to 'tests')
-rw-r--r--tests/ccwl.scm16
1 files 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")