|
@@ -348,14 +348,16 @@ result:
|
|
|
(let [repo (state/get-current-repo)
|
|
|
conn (conn/get-db repo false)
|
|
|
[page1-uuid ;; page2-uuid page3-uuid page4-uuid
|
|
|
- ](repeatedly random-uuid)]
|
|
|
+ ](repeatedly random-uuid)
|
|
|
+ page-tag-str (ldb/write-transit-str [(str (:block/uuid (d/entity @conn :logseq.class/Page)))])]
|
|
|
(testing "apply-remote-update-page-ops-test1"
|
|
|
(let [data-from-ws {:req-id "req-id" :t 1 :t-before 0
|
|
|
:affected-blocks
|
|
|
{page1-uuid {:op :update-page
|
|
|
:self page1-uuid
|
|
|
:page-name (ldb/write-transit-str (str "X" page1-uuid))
|
|
|
- :block/title (ldb/write-transit-str (str "X" page1-uuid))}}}
|
|
|
+ :block/title (ldb/write-transit-str (str "X" page1-uuid))
|
|
|
+ :block/tags page-tag-str}}}
|
|
|
update-page-ops (vals
|
|
|
(:update-page-ops-map
|
|
|
(#'r.remote/affected-blocks->diff-type-ops repo (:affected-blocks data-from-ws))))]
|
|
@@ -369,7 +371,8 @@ result:
|
|
|
{page1-uuid {:op :update-page
|
|
|
:self page1-uuid
|
|
|
:page-name (ldb/write-transit-str (str page1-uuid "-rename"))
|
|
|
- :block/title (ldb/write-transit-str (str page1-uuid "-rename"))}}}
|
|
|
+ :block/title (ldb/write-transit-str (str page1-uuid "-rename"))
|
|
|
+ :block/tags page-tag-str}}}
|
|
|
update-page-ops (vals
|
|
|
(:update-page-ops-map
|
|
|
(#'r.remote/affected-blocks->diff-type-ops repo (:affected-blocks data-from-ws))))]
|