From 1572d05ef1d169cfd3b86135314ce3fad79b99a0 Mon Sep 17 00:00:00 2001 From: Maris Orbidans Date: Fri, 27 Feb 2015 02:08:02 +0000 Subject: [PATCH] test --- test/maruks/data/red_black_tree_test.clj | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/test/maruks/data/red_black_tree_test.clj b/test/maruks/data/red_black_tree_test.clj index cdc41f7..609791e 100644 --- a/test/maruks/data/red_black_tree_test.clj +++ b/test/maruks/data/red_black_tree_test.clj @@ -133,4 +133,15 @@ (is (= '(2 3 4) (seq d))) (is (= '(1 2 3 4) (seq t))) (is (is-red-black-tree? (.root d))) + (is (is-red-black-tree? (.root t))))) + (testing "removing BLACK node with RED child" + (let [t (red-black-tree '(2 1 4 3)) + d (disj t 2) + n (find-node (.root t) 2 compare) + c (.left n)] + (is (and (red? c) (is-leaf? c))) + (is (and (black? n) (not (is-leaf? n)))) + (is (= '(1 3 4) (seq d))) + (is (= '(1 2 3 4) (seq t))) + (is (is-red-black-tree? (.root d))) (is (is-red-black-tree? (.root t))))))