diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib')
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_graph.clj | 10 |
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)))) |