diff options
| author | Arun Isaac | 2021-07-02 16:26:21 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-07-02 16:26:21 +0530 |
| commit | 10db9e74f78a1c2a11933a7aabe731f83d06b459 (patch) | |
| tree | eb5758f3b9aa20f1b3b504584be7319c1b3d8e85 | |
| parent | 3a82e006a0d3c1e951559dfe9c8c7a08f1149bec (diff) | |
| download | ccwl-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.
| -rw-r--r-- | tests/ccwl.scm | 16 |
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") |