ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Use 'fold-module-public-variables' for discovery.

Browse source 
* gnu/tests.scm (fold-system-tests): Write in terms of
'fold-module-public-variables'.
This commit is contained in:
Ludovic Courtès 2017-05-04 11:43:01 +02:00
parent 8eb55df488
commit 67d84d6335
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/tests.scm
View file

@ -27,7 +27,7 @@ (define-module (gnu tests)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services base) #:use-module (gnu services base)
#:use-module (gnu services shepherd) #: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-1)
#:use-module (srfi srfi-9 gnu) #:use-module (srfi srfi-9 gnu)
#:use-module (ice-9 match) #:use-module (ice-9 match)
@ -263,17 +263,12 @@ (define (test-modules)
(define (fold-system-tests proc seed) (define (fold-system-tests proc seed)
"Invoke PROC on each system test, passing it the test and the previous "Invoke PROC on each system test, passing it the test and the previous
result." result."
(fold (lambda (module result) (fold-module-public-variables (lambda (obj result)
(fold (lambda (thing result) (if (system-test? obj)
(if (system-test? thing) (cons obj result)
(proc thing result) result))
result)) '()
result (test-modules)))
(module-map (lambda (sym var)
(false-if-exception (variable-ref var)))
module)))
'()
(test-modules)))
(define (all-system-tests) (define (all-system-tests)
"Return the list of system tests." "Return the list of system tests."