summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <christopher.baines@digital.cabinet-office.gov.uk>2017-04-08 14:41:06 +0100
committerChristopher Baines <christopher.baines@digital.cabinet-office.gov.uk>2019-02-24 20:34:02 +0000
commit55b0bd5494a2097a6d85aa93b2dfa1360848b732 (patch)
tree168d1188b5333de228604beb81bc918a7211408c
parenta20302e5b91d64b7c8a9d8b5a17cca6996a4d800 (diff)
downloadgnu-guix-55b0bd5494a2097a6d85aa93b2dfa1360848b732.tar
gnu-guix-55b0bd5494a2097a6d85aa93b2dfa1360848b732.tar.gz
Make test-modules a parameter
-rw-r--r--gnu/tests.scm11
1 files changed, 6 insertions, 5 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm
index 9e8eed7d95..0978828f8c 100644
--- a/gnu/tests.scm
+++ b/gnu/tests.scm
@@ -256,11 +256,12 @@ the system under test."
(set-record-type-printer! <system-test> write-system-test)
-(define (test-modules)
- "Return the list of modules that define system tests."
- (scheme-modules (dirname (search-path %load-path "guix.scm"))
- "gnu/tests"
- #:warn warn-about-load-error))
+(define test-modules
+ ;; Return the list of modules that define system tests.
+ (make-parameter
+ (scheme-modules (dirname (search-path %load-path "guix.scm"))
+ "gnu/tests"
+ #:warn warn-about-load-error)))
(define (fold-system-tests proc seed)
"Invoke PROC on each system test, passing it the test and the previous