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> | 2019-03-23 21:49:00 +0000 |
commit | 704deef7643ce05fce4c2d90edf3b36ec0ed237e (patch) | |
tree | 4afb0b08d4e065db5cb286a5a13bef032a22b9db /gnu | |
parent | 84fefaeaaecf2364a9f66a860f4ff233644ee618 (diff) | |
download | gnu-guix-704deef7643ce05fce4c2d90edf3b36ec0ed237e.tar gnu-guix-704deef7643ce05fce4c2d90edf3b36ec0ed237e.tar.gz |
Make test-modules a parameter
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/tests.scm | 11 |
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 |