ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Add an indirection for white-box testing.

Browse source 
* tests/gexp.scm (gexp-inputs, gexp-native-inputs, gexp-outputs,
  gexp->sexp): Make an indirection, to facilitate live testing with
  Geiser.
This commit is contained in:
Ludovic Courtès 2015-03-14 22:28:39 +01:00
parent 708155dfcb
commit 1f9760339e
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/gexp.scm
View file

@ -40,10 +40,14 @@ (define %store
(open-connection-for-tests)) (open-connection-for-tests))
;; For white-box testing. ;; For white-box testing.
(define gexp-inputs (@@ (guix gexp) gexp-inputs)) (define (gexp-inputs x)
(define gexp-native-inputs (@@ (guix gexp) gexp-native-inputs)) ((@@ (guix gexp) gexp-inputs) x))
(define gexp-outputs (@@ (guix gexp) gexp-outputs)) (define (gexp-native-inputs x)
(define gexp->sexp (@@ (guix gexp) gexp->sexp)) ((@@ (guix gexp) gexp-native-inputs) x))
(define (gexp-outputs x)
((@@ (guix gexp) gexp-outputs) x))
(define (gexp->sexp . x)
(apply (@@ (guix gexp) gexp->sexp) x))
(define* (gexp->sexp* exp #:optional target) (define* (gexp->sexp* exp #:optional target)
(run-with-store %store (gexp->sexp exp (run-with-store %store (gexp->sexp exp