01/01: tests: Fix graph.

[Jan Nieuwenhuizen]

janneke pushed a commit to branch wip-bootstrap
in repository guix.

commit da686d6f7a1917ed018883f4c478ce8cb9fcc075
Author: Jan Nieuwenhuizen <address@hidden>
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)))