diff options
| author | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-02-24 05:15:39 +0000 |
|---|---|---|
| committer | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-02-24 05:15:39 +0000 |
| commit | c7f3ec5bea8cc04da8453446e54d0a29333060b0 (patch) | |
| tree | a1817b20435960ee3f062db49d9991494ae541c8 | |
| parent | 6d533c7127a448cce14cc29c1482bcdc6becedab (diff) | |
Added test
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_graph.clj | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/test_graph.clj b/src/clojure/contrib/test_contrib/test_graph.clj index 73cd8732..3becdd25 100644 --- a/src/clojure/contrib/test_contrib/test_graph.clj +++ b/src/clojure/contrib/test_contrib/test_graph.clj @@ -79,6 +79,7 @@ #{#{:i :j}})) (is (= (get-neighbors cg #{:h}) #{})) + (is (= (apply max (map count (self-recursive-sets cg))) 1)) (is (= ecg empty-graph)))) (comment |