summaryrefslogtreecommitdiff
path: root/gnu
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-05-30 18:18:19 +0100
commit83068ab9ff3a9ec442f7336c19277199bfa0f417 (patch)
tree2b7cf6cc0b9083325b0a37582b2e4e3872ee1767 /gnu
parentb47d6046efa0763c9626ac8d8e99725a3b525351 (diff)
downloadgnu-guix-83068ab9ff3a9ec442f7336c19277199bfa0f417.tar
gnu-guix-83068ab9ff3a9ec442f7336c19277199bfa0f417.tar.gz
Make test-modules a parameter
Diffstat (limited to 'gnu')
-rw-r--r--gnu/tests.scm11
1 files changed, 6 insertions, 5 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm
index 0871b4c6f7..9acd83e31f 100644
--- a/gnu/tests.scm
+++ b/gnu/tests.scm
@@ -255,11 +255,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