tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-18 23:25:57 +02:00
Code Activity

graph: Add synthetic test.

Browse Source 
* tests/graph.scm ("node-transitive-edges, no duplicates"): New test.
This commit is contained in:
Ludovic Courtès
2015-12-13 21:41:52 +01:00
parent 20464dde13
commit 88d5858f55
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/graph.scm
+11
View File
@@ -250,6 +250,17 @@ edges."
(bootstrap? package)))
diff))))))))
(test-assert "node-transitive-edges, no duplicates"
(run-with-store %store
(let* ((p0 (dummy-package "p0"))
(p1a (dummy-package "p1a" (inputs `(("p0" ,p0)))))
(p1b (dummy-package "p1b" (inputs `(("p0" ,p0)))))
(p2 (dummy-package "p2" (inputs `(("p1a" ,p1a) ("p1b" ,p1b))))))
(mlet %store-monad ((edges (node-edges %package-node-type
(list p2 p1a p1b p0))))
(return (lset= eq? (node-transitive-edges (list p2) edges)
(list p1a p1b p0)))))))
(test-end "graph")