nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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 6dff905e51.

* tests/graph.scm ("bag-emerged DAG"): Adjust for glibc:static among
IMPLICIT.
This commit is contained in:
Ludovic Courtès 2017-12-17 22:27:21 +01:00
parent 6ac46bfa41
commit cafc97e2f3
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/graph.scm
View File

@ -110,19 +110,23 @@ edges."
(text-file "foo" "bar"))))) (text-file "foo" "bar")))))
(p (dummy-package "p" (source o))) (p (dummy-package "p" (source o)))
(implicit (map (match-lambda (implicit (map (match-lambda
((label package) package)) ((label package) package)
((label package output) package))
(standard-packages)))) (standard-packages))))
(run-with-store %store (run-with-store %store
(export-graph (list p) 'port (export-graph (list p) 'port
#:node-type %bag-emerged-node-type #:node-type %bag-emerged-node-type
#:backend backend)) #:backend backend))
;; We should see exactly P and IMPLICIT, with one edge from P to each ;; 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))) (let-values (((nodes edges) (nodes+edges)))
(and (equal? (match nodes (and (equal? (match nodes
(((labels names) ...) (((labels names) ...)
names)) names))
(map package-full-name (cons p implicit))) (map package-full-name
(cons p (delete-duplicates implicit))))
(equal? (match edges (equal? (match edges
(((sources destinations) ...) (((sources destinations) ...)
(zip (map store-path-package-name sources) (zip (map store-path-package-name sources)