[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/10: tests: Add an indirection for white-box testing.
From: |
Ludovic Courtès |
Subject: |
01/10: tests: Add an indirection for white-box testing. |
Date: |
Tue, 17 Mar 2015 21:28:57 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 1f9760339e8d56b72902300c621242022ef1015c
Author: Ludovic Courtès <address@hidden>
Date: Sat Mar 14 22:28:39 2015 +0100
tests: Add an indirection for white-box testing.
* tests/gexp.scm (gexp-inputs, gexp-native-inputs, gexp-outputs,
gexp->sexp): Make an indirection, to facilitate live testing with
Geiser.
---
tests/gexp.scm | 12 ++++++++----
1 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/tests/gexp.scm b/tests/gexp.scm
index 783ca2c..ac2842d 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -40,10 +40,14 @@
(open-connection-for-tests))
;; For white-box testing.
-(define gexp-inputs (@@ (guix gexp) gexp-inputs))
-(define gexp-native-inputs (@@ (guix gexp) gexp-native-inputs))
-(define gexp-outputs (@@ (guix gexp) gexp-outputs))
-(define gexp->sexp (@@ (guix gexp) gexp->sexp))
+(define (gexp-inputs x)
+ ((@@ (guix gexp) gexp-inputs) x))
+(define (gexp-native-inputs x)
+ ((@@ (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)
(run-with-store %store (gexp->sexp exp
- branch master updated (708155d -> 5250a4f), Ludovic Courtès, 2015/03/17
- 01/10: tests: Add an indirection for white-box testing.,
Ludovic Courtès <=
- 04/10: gexp: Export 'gexp-input' constructor., Ludovic Courtès, 2015/03/17
- 05/10: profiles: Use 'gexp-input' instead of two-element lists., Ludovic Courtès, 2015/03/17
- 06/10: gexp: Remove special meaning of forms (PACKAGE OUTPUT) in ungexp., Ludovic Courtès, 2015/03/17
- 08/10: packages: Move grafting parameter to (guix derivations)., Ludovic Courtès, 2015/03/17
- 07/10: gexp: Separate "compilers" for origins and packages from the core., Ludovic Courtès, 2015/03/17
- 10/10: services: guix-service: Remove extraneous monadism., Ludovic Courtès, 2015/03/17
- 09/10: gexp: Move the package and origin compilers to (guix packages)., Ludovic Courtès, 2015/03/17
- 02/10: gexp: Rename <output-ref> to <gexp-output>., Ludovic Courtès, 2015/03/17
- 03/10: gexp: Add <gexp-input>., Ludovic Courtès, 2015/03/17