From fa8fad2f03c3c16b67d2c44da0ff8eed10b9b926 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 13 Jan 2022 15:39:33 +0530 Subject: 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. --- tests/ccwl.scm | 5 ++--- tests/utils.scm | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) (limited to 'tests') 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 +;;; Copyright © 2021, 2022 Arun Isaac ;;; ;;; 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 +;;; Copyright © 2021, 2022 Arun Isaac ;;; ;;; 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**" -- cgit v1.2.3