diff options
| -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**" |