mirror of https://github.com/logseq/logseq
test(undo): update-block-op add more attrs
parent
e76a672918
commit
f0275db47d
|
@ -60,11 +60,16 @@
|
|||
|
||||
(defn- gen-update-block-op
|
||||
[db]
|
||||
(gen/let [block-uuid (gen-block-uuid db)
|
||||
content gen/string-alphanumeric]
|
||||
[:frontend.worker.undo-redo/update-block
|
||||
{:block-uuid block-uuid
|
||||
:block-origin-content content}]))
|
||||
(let [gen-content-attr (gen/let [content gen/string-alphanumeric]
|
||||
[:block-origin-content content])
|
||||
gen-collapsed-attr (gen/let [v gen/boolean]
|
||||
[:block-origin-collapsed v])
|
||||
gen-tags-attr (gen/let [tags (gen/vector (gen-block-uuid db))]
|
||||
[:block-origin-tags tags])]
|
||||
(gen/let [block-uuid (gen-block-uuid db)
|
||||
attrs (gen/vector (gen/one-of [gen-content-attr gen-collapsed-attr gen-tags-attr]) 3)]
|
||||
[:frontend.worker.undo-redo/update-block
|
||||
(into {:block-uuid block-uuid} attrs)])))
|
||||
|
||||
(def ^:private gen-boundary (gen/return [:frontend.worker.undo-redo/boundary]))
|
||||
|
||||
|
|
Loading…
Reference in New Issue