Made post-edge-reverse test a bit more interesting.

aysylu · Jun 6, 2014 · 0ce45ac · 0ce45ac
1 parent b8a9867
commit 0ce45ac
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)]