Added recursive component test

1 files changed, 9 insertions, 1 deletions

diff --git a/src/clojure/contrib/test_contrib/test_graph.clj b/src/clojure/contrib/test_contrib/test_graph.clj
index 85983d28..09b3cc93 100644
--- a/src/clojure/contrib/test_contrib/test_graph.clj
+++ b/src/clojure/contrib/test_contrib/test_graph.clj
@@ -111,9 +111,17 @@
     (is (= ecg empty-graph))))
 
 
+(deftest test-recursive-component?
+  (let [sccs (scc test-graph-2)]
+    (is (= (set (filter (partial recursive-component? test-graph-2) sccs))
+           #{#{:i :j} #{:b :c :a :d :e} #{:f}}))))
+
+
 (deftest test-self-recursive-sets
   (is (= (set (self-recursive-sets test-graph-2))
-         #{#{:i :j} #{:b :c :a :d :e} #{:f}}))
+         (set (filter
+               (partial recursive-component? test-graph-2)
+               (scc test-graph-2)))))
   (is (empty? (self-recursive-sets empty-graph))))