diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-05-04 11:43:01 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-04 18:05:05 +0200 |
| commit | 67d84d6335ae84ac7c217061570e6b968060073c (patch) | |
| tree | 797f670be34d8d6af242cd9adb8e4bd713b4fb5b | |
| parent | 8eb55df48835d08e7b522ac060fa56832172f05e (diff) | |
| download | patches-67d84d6335ae84ac7c217061570e6b968060073c.tar patches-67d84d6335ae84ac7c217061570e6b968060073c.tar.gz | |
tests: Use 'fold-module-public-variables' for discovery.
* gnu/tests.scm (fold-system-tests): Write in terms of
'fold-module-public-variables'.
| -rw-r--r-- | gnu/tests.scm | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm index 0df6e5a2ef..810711ab91 100644 --- a/gnu/tests.scm +++ b/gnu/tests.scm @@ -27,7 +27,7 @@ #:use-module (gnu services) #:use-module (gnu services base) #:use-module (gnu services shepherd) - #:use-module ((guix discovery) #:select (scheme-modules)) + #:use-module (guix discovery) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9 gnu) #:use-module (ice-9 match) @@ -263,17 +263,12 @@ the system under test." (define (fold-system-tests proc seed) "Invoke PROC on each system test, passing it the test and the previous result." - (fold (lambda (module result) - (fold (lambda (thing result) - (if (system-test? thing) - (proc thing result) - result)) - result - (module-map (lambda (sym var) - (false-if-exception (variable-ref var))) - module))) - '() - (test-modules))) + (fold-module-public-variables (lambda (obj result) + (if (system-test? obj) + (cons obj result) + result)) + '() + (test-modules))) (define (all-system-tests) "Return the list of system tests." |