janneke pushed a commit to branch wip-bootstrap
in repository guix.
commit da686d6f7a1917ed018883f4c478ce8cb9fcc075
Author: Jan Nieuwenhuizen <[email protected]>
Date: Sat Sep 22 22:23:38 2018 +0200
tests: Fix graph.
This is a fixup of
86811e6faf bootstrap: %bootstrap-inputs: Wrap input lists into thunks.
* tests/graph.scm ("bag DAG"): %bootstrap-inputs is now a thunk. Filter it
with package?.
---
tests/graph.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tests/graph.scm b/tests/graph.scm
index 4799d3b..2a0f675 100644
--- a/tests/graph.scm
+++ b/tests/graph.scm
@@ -153,9 +153,9 @@ edges."
(match nodes
(((labels names) ...)
names))))
- (match %bootstrap-inputs
+ (match (%bootstrap-inputs)
(((labels packages) ...)
- (map package-full-name packages))))))))
+ (map package-full-name (filter package? packages)))))))))
(test-assert "bag DAG, including origins"
(let-values (((backend nodes+edges) (make-recording-backend)))
