diff options
| author | Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk> | 2017-04-08 14:41:06 +0100 |
|---|---|---|
| committer | Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk> | 2018-01-30 22:47:32 +0000 |
| commit | 1a0208f145666ce8ac3dcabdd85b67645afc7981 (patch) | |
| tree | 5267fd4b2853bd5e73fe2d0cfd59e6727e5669b5 /gnu | |
| parent | 62a48a778e86e5923f6954b8db2a27871545ad00 (diff) | |
| download | guix-1a0208f145666ce8ac3dcabdd85b67645afc7981.tar guix-1a0208f145666ce8ac3dcabdd85b67645afc7981.tar.gz | |
Make test-modules a parameter
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/tests.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm index 3e4c3d4e3a..e956baa989 100644 --- a/gnu/tests.scm +++ b/gnu/tests.scm @@ -268,10 +268,11 @@ 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")) +(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"))) (define (fold-system-tests proc seed) "Invoke PROC on each system test, passing it the test and the previous |