Mark generative tests to exclude them for fast local test runs

This commit is contained in:
Gabriel Horner
2022-05-03 17:27:44 -04:00
parent 85bd1fecb2
commit 6c91854c71

View File

@@ -390,7 +390,7 @@
(recur (conj result next) next)))
result)))))
(deftest random-inserts
(deftest ^:generative random-inserts
(testing "Random inserts"
(transact-random-tree!)
(let [c1 (get-blocks-count)
@@ -402,7 +402,7 @@
(let [total (get-blocks-count)]
(is (= total (+ c1 @*random-count)))))))
(deftest random-deletes
(deftest ^:generative random-deletes
(testing "Random deletes"
(transact-random-tree!)
(dotimes [_i 100]
@@ -412,7 +412,7 @@
(outliner-tx/transact! {:graph test-db}
(outliner-core/delete-blocks! blocks {})))))))
(deftest random-moves
(deftest ^:generative random-moves
(testing "Random moves"
(transact-random-tree!)
(let [c1 (get-blocks-count)
@@ -429,7 +429,7 @@
(let [total (get-blocks-count)]
(is (= total (+ c1 @*random-count)))))))))))
(deftest random-move-up-down
(deftest ^:generative random-move-up-down
(testing "Random move up down"
(transact-random-tree!)
(let [c1 (get-blocks-count)
@@ -445,7 +445,7 @@
(let [total (get-blocks-count)]
(is (= total (+ c1 @*random-count))))))))))
(deftest random-indent-outdent
(deftest ^:generative random-indent-outdent
(testing "Random indent and outdent"
(transact-random-tree!)
(let [c1 (get-blocks-count)
@@ -461,7 +461,7 @@
(let [total (get-blocks-count)]
(is (= total (+ c1 @*random-count))))))))))
(deftest random-mixed-ops
(deftest ^:generative random-mixed-ops
(testing "Random mixed operations"
(transact-random-tree!)
(let [c1 (get-blocks-count)