|
|
@@ -162,7 +162,7 @@
|
|
|
(undo-all conn page-uuid)
|
|
|
(redo-all conn page-uuid))
|
|
|
|
|
|
-(deftest undo-redo-gen-test
|
|
|
+(deftest ^:long undo-redo-gen-test
|
|
|
(let [conn (db/get-db false)
|
|
|
all-remove-ops (gen/generate (gen/vector (gen-op @conn {:remove-block-op 1000}) 1000))]
|
|
|
(#'undo-redo/push-undo-ops test-helper/test-db-name-db-version page-uuid all-remove-ops)
|
|
|
@@ -224,7 +224,7 @@
|
|
|
(otree/blocks->vec-tree test-helper/test-db-name-db-version db
|
|
|
blocks page-uuid)))))
|
|
|
|
|
|
-(deftest ^:wip undo-redo-outliner-op-gen-test
|
|
|
+(deftest ^:long ^:wip undo-redo-outliner-op-gen-test
|
|
|
(try
|
|
|
(let [conn (db/get-db false)]
|
|
|
(loop [num 100]
|