graph: Add synthetic test.

* 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

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")