diff --git a/test/loom/test/alg_generic.clj b/test/loom/test/alg_generic.clj index 6ca8657..e9f0d82 100644 --- a/test/loom/test/alg_generic.clj +++ b/test/loom/test/alg_generic.clj @@ -191,7 +191,9 @@ (are [g] (let [dg (g/digraph g) edges (g/edges dg) loop-post-traverse - (loop [nodes (g/nodes dg) + (loop [nodes (reverse (g/nodes dg)) + ; reverse makes this more interesting as graphs + ; are often specified in the forward direction seen #{} acc ()] (if-let [node (first nodes)]