diff options
| author | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-02-26 23:16:42 +0000 |
|---|---|---|
| committer | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-02-26 23:16:42 +0000 |
| commit | 99d4cec057e03f9da7331ef10d88e47ac9edfff2 (patch) | |
| tree | af1bfdf98b596bc9dffc759a6ae5ed83e74597b2 /src/clojure/contrib/test_contrib/test_graph.clj | |
| parent | 2a805ed15058cd04bb5042a2ce198c2a44ef0de3 (diff) | |
Fixed loops in transitive closure
Diffstat (limited to 'src/clojure/contrib/test_contrib/test_graph.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_graph.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/test_contrib/test_graph.clj b/src/clojure/contrib/test_contrib/test_graph.clj index 09b3cc93..425966bf 100644 --- a/src/clojure/contrib/test_contrib/test_graph.clj +++ b/src/clojure/contrib/test_contrib/test_graph.clj @@ -79,9 +79,9 @@ (is (every? #(= #{:a :b :c :d :e} (set %)) (map (partial get-neighbors tc-1) (:nodes tc-1)))) (is (= (get :a) #{:a :b :c :d :e})) - (is (= (get :h) #{:h})) + (is (= (get :h) #{})) (is (= (get :j) #{:i :j})) - (is (= (get :g) #{:a :b :c :d :e :f :g})))) + (is (= (get :g) #{:a :b :c :d :e :f})))) (deftest test-post-ordered-nodes |