clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-24 22:25:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix(test): fix rtc-basic-test

Browse Source
This commit is contained in:
rcmerci
2025-12-03 00:01:26 +08:00
parent 17cc2603a7
commit 748690b16d
1 changed files with 25 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
clj-e2e/test/logseq/e2e/rtc_basic_test.clj
View File

@@ -16,7 +16,7 @@
(use-fixtures :each fixtures/validate-graph)
(deftest ^:fix-me rtc-basic-test
(deftest rtc-basic-test
(let [graph-name (str "rtc-graph-" (.toEpochMilli (java.time.Instant/now)))
page-names (map #(str "rtc-test-page" %) (range 4))]
(testing "open 2 app instances, add a rtc graph, check this graph available on other instance"
@@ -38,21 +38,7 @@
(page/new-page page-name)))]
(w/with-page @*page2
(rtc/wait-tx-update-to remote-tx)
(util/search-and-click page-name)))
(testing "Page reference created"
(let [test-page (str "random page " (random-uuid))
block-title (format "test ref [[%s]]" test-page)
{:keys [_local-tx remote-tx]}
(w/with-page @*page1
(rtc/with-wait-tx-updated
(b/new-block block-title)))]
(w/with-page @*page2
(rtc/wait-tx-update-to remote-tx)
(util/search-and-click test-page)
(w/wait-for ".references .ls-block")
;; ensure ref exists
(let [refs (w/all-text-contents ".references .ls-block .block-title-wrap")]
(is (= refs [block-title])))))))
(util/search-and-click page-name))))
(let [*last-remote-tx (atom nil)]
(doseq [page-name page-names]
(let [{:keys [_local-tx remote-tx]}
@@ -65,6 +51,29 @@
(doseq [page-name page-names]
(util/search page-name)
(assert/assert-is-hidden (w/get-by-test-id page-name))))))
(testing "Page reference created"
(let [page-name "test-page-reference"
{:keys [_local-tx remote-tx]}
(w/with-page @*page1
(rtc/with-wait-tx-updated
(page/new-page page-name)))]
(w/with-page @*page2
(rtc/wait-tx-update-to remote-tx)))
(let [test-page (str "random page " (random-uuid))
block-title (format "test ref [[%s]]" test-page)
{:keys [_local-tx remote-tx]}
(w/with-page @*page1
(rtc/with-wait-tx-updated
(b/new-block block-title)
(b/new-block "add new-block to ensure last block saved")))]
(w/with-page @*page2
(rtc/wait-tx-update-to remote-tx)
(util/search-and-click test-page)
(w/wait-for ".references .ls-block")
;; ensure ref exists
(let [refs (w/all-text-contents ".references .ls-block .block-title-wrap")]
(is (= refs [block-title]))))))
(testing "cleanup"
(w/with-page @*page2
(graph/remove-remote-graph graph-name)))))