diff --git a/tests/graph.scm b/tests/graph.scm index b86ae4a32f..4799d3bd0c 100644 --- a/tests/graph.scm +++ b/tests/graph.scm @@ -293,7 +293,7 @@ (define (edge->tuple source target) (run-with-store %store (let ((packages (fold-packages cons '()))) (mlet %store-monad ((edges (node-edges %package-node-type packages))) - (return (and (null? (edges sed)) + (return (and (null? (edges hello)) (lset= eq? (edges guile-2.0) (match (package-direct-inputs guile-2.0)