aboutsummaryrefslogtreecommitdiff
path: root/tests/graph.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-12-17 22:27:21 +0100
committerLudovic Courtès <ludo@gnu.org>2017-12-17 22:27:21 +0100
commitcafc97e2f37f18e106c9a9cb9110a1862e9d0526 (patch)
tree46b7a01d44597ff6703455a8a4dbeff9ad809ab8 /tests/graph.scm
parent6ac46bfa411242140a2f269df74b30b565e4b5ec (diff)
downloadguix-cafc97e2f37f18e106c9a9cb9110a1862e9d0526.tar
guix-cafc97e2f37f18e106c9a9cb9110a1862e9d0526.tar.gz
graph: Adjust test for glibc:static among the implicit inputs.
Fixes <https://bugs.gnu.org/29612>. Reported by Chris Marusich <cmmarusich@gmail.com>. This is a followup to 6dff905e51202bbdebbad8811b6509584d12a796. * tests/graph.scm ("bag-emerged DAG"): Adjust for glibc:static among IMPLICIT.
Diffstat (limited to 'tests/graph.scm')
-rw-r--r--tests/graph.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/graph.scm b/tests/graph.scm
index 6431c482f7..00fd37243c 100644
--- a/tests/graph.scm
+++ b/tests/graph.scm
@@ -110,19 +110,23 @@ edges."
(text-file "foo" "bar")))))
(p (dummy-package "p" (source o)))
(implicit (map (match-lambda
- ((label package) package))
+ ((label package) package)
+ ((label package output) package))
(standard-packages))))
(run-with-store %store
(export-graph (list p) 'port
#:node-type %bag-emerged-node-type
#:backend backend))
;; We should see exactly P and IMPLICIT, with one edge from P to each
- ;; element of IMPLICIT. O must not appear among NODES.
+ ;; element of IMPLICIT. O must not appear among NODES. Note: IMPLICIT
+ ;; contains "glibc" twice, once for "out" and a second time for
+ ;; "static", hence the 'delete-duplicates' call below.
(let-values (((nodes edges) (nodes+edges)))
(and (equal? (match nodes
(((labels names) ...)
names))
- (map package-full-name (cons p implicit)))
+ (map package-full-name
+ (cons p (delete-duplicates implicit))))
(equal? (match edges
(((sources destinations) ...)
(zip (map store-path-package-name sources)