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/utils.scm | |
| 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/utils.scm')
| -rw-r--r-- | tests/utils.scm | 5 |
1 files changed, 2 insertions, 3 deletions
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**" |