|
@@ -65,6 +65,14 @@
|
|
|
(is (= "b1" (util/get-edit-content)))
|
|
(is (= "b1" (util/get-edit-content)))
|
|
|
(is (= 1 (util/page-blocks-count)))))
|
|
(is (= 1 (util/page-blocks-count)))))
|
|
|
|
|
|
|
|
|
|
+(defn delete-end []
|
|
|
|
|
+ (testing "Delete at end"
|
|
|
|
|
+ (b/new-blocks ["b1" "b2" "b3"])
|
|
|
|
|
+ (k/arrow-up)
|
|
|
|
|
+ (k/delete)
|
|
|
|
|
+ (is (= "b2b3" (util/get-edit-content)))
|
|
|
|
|
+ (is (= 2 (util/page-blocks-count)))))
|
|
|
|
|
+
|
|
|
(defn delete-test-with-children []
|
|
(defn delete-test-with-children []
|
|
|
(testing "Delete block with its children"
|
|
(testing "Delete block with its children"
|
|
|
(b/new-blocks ["b1" "b2" "b3" "b4"])
|
|
(b/new-blocks ["b1" "b2" "b3" "b4"])
|
|
@@ -88,5 +96,8 @@
|
|
|
(deftest delete-test
|
|
(deftest delete-test
|
|
|
(delete))
|
|
(delete))
|
|
|
|
|
|
|
|
|
|
+(deftest delete-end-test
|
|
|
|
|
+ (delete-end))
|
|
|
|
|
+
|
|
|
(deftest delete-test-with-children-test
|
|
(deftest delete-test-with-children-test
|
|
|
(delete-test-with-children))
|
|
(delete-test-with-children))
|