diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-12-17 22:27:21 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-12-17 22:27:21 +0100 |
| commit | cafc97e2f37f18e106c9a9cb9110a1862e9d0526 (patch) | |
| tree | 46b7a01d44597ff6703455a8a4dbeff9ad809ab8 /tests | |
| parent | 6ac46bfa411242140a2f269df74b30b565e4b5ec (diff) | |
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')
| -rw-r--r-- | tests/graph.scm | 10 |
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) |