[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/06: tests: Add an indirection for white-box testing.
From: |
Ludovic Courtès |
Subject: |
01/06: tests: Add an indirection for white-box testing. |
Date: |
Sun, 15 Mar 2015 22:32:56 +0000 |
civodul pushed a commit to branch wip-extensible-gexps
in repository guix.
commit 3f964ed9b01c332b2613ba1c71a377646219cef1
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 wip-extensible-gexps created (now 78f7c26), Ludovic Courtès, 2015/03/15
- 01/06: tests: Add an indirection for white-box testing.,
Ludovic Courtès <=
- 02/06: gexp: Add <gexp-input>., Ludovic Courtès, 2015/03/15
- 03/06: gexp: Export 'gexp-input' constructor., Ludovic Courtès, 2015/03/15
- 04/06: profiles: Use 'gexp-input' instead of two-element lists., Ludovic Courtès, 2015/03/15
- 05/06: gexp: Remove special meaning of forms (PACKAGE OUTPUT) in ungexp., Ludovic Courtès, 2015/03/15
- 06/06: gexp: Separate "expanders" for origins and packages from the core., Ludovic Courtès, 2015/03/15