From 2ab62479aebb91e68d7074bc79d12c76ab0c75a6 Mon Sep 17 00:00:00 2001
From: Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk>
Date: Sat, 8 Apr 2017 14:41:06 +0100
Subject: Make test-modules a parameter

---
 gnu/tests.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'gnu')

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
-- 
cgit v1.2.3