diff options
| author | Arun Isaac | 2022-01-13 15:39:33 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-01-16 00:52:07 +0530 |
| commit | fa8fad2f03c3c16b67d2c44da0ff8eed10b9b926 (patch) | |
| tree | 7eb173ebea19cf55eb314dde3a043753fda8cb58 /tests | |
| parent | df75e2650f3c2a273a8b6193f0aca652199916a7 (diff) | |
| download | ccwl-fa8fad2f03c3c16b67d2c44da0ff8eed10b9b926.tar.gz ccwl-fa8fad2f03c3c16b67d2c44da0ff8eed10b9b926.tar.lz ccwl-fa8fad2f03c3c16b67d2c44da0ff8eed10b9b926.zip | |
tests: Use @@ instead of module-ref and resolve-module.
@@ is shorter and looks neater with fewer quotes.
* tests/ccwl.scm ("stdin input should not have inputBinding"),
tests/utils.scm ("unsyntax-keywords"): Use @@ instead of module-ref
and resolve-module.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ccwl.scm | 5 | ||||
| -rw-r--r-- | tests/utils.scm | 5 |
2 files changed, 4 insertions, 6 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index 5d8a17f..015dcde 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -1,5 +1,5 @@ ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2021, 2022 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ccwl. ;;; @@ -25,8 +25,7 @@ (not (assoc-ref (assoc-ref (assoc-ref - ((module-ref (resolve-module '(ccwl cwl)) - 'command->cwl-scm) + ((@@ (ccwl cwl) command->cwl-scm) (command #:inputs (file #:type File) #:run "wc" "-c" #:stdin file)) diff --git a/tests/utils.scm b/tests/utils.scm index 3c8fac4..223e7cd 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -1,5 +1,5 @@ ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2021, 2022 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ccwl. ;;; @@ -54,8 +54,7 @@ ;; expressions. (test-assert "unsyntax-keywords" (equal? (list #:ham #'1 #:eggs #'2) - ((module-ref (resolve-module '(ccwl utils)) - 'unsyntax-keywords) + ((@@ (ccwl utils) unsyntax-keywords) (list #'#:ham #'1 #'#:eggs #'2)))) (test-equal "lambda**" |