test(rtc,e2e): add long-block-title-test

clj-e2e/test/logseq/e2e/fixtures.clj

@@ -29,8 +29,12 @@
                                  (swap! custom-report/*pw-page->console-logs* update p conj (.text msg))))))
       (f))))
 
-(def *page1 (atom nil))
-(def *page2 (atom nil))
+(def *page1
+  "this 'page' means playwright-page, not logseq-page. it points to the client1 when testing rtc"
+  (atom nil))
+(def *page2
+  "this 'page' means playwright-page, not logseq-page. it points to the client2 when testing rtc"
+  (atom nil))
 
 (defn open-2-pages
   "Use `*page1` and `*page2` in `f`"
@@ -88,8 +92,8 @@
 (defonce *page-number (atom 0))
 
 (defn create-page
-  []
-  (let [page-name (str "page " (swap! *page-number inc))]
+  [& [page-name]]
+  (let [page-name (or page-name (str "page " (swap! *page-number inc)))]
     (page/new-page page-name)
     page-name))
 

clj-e2e/test/logseq/e2e/rtc_extra_test.clj

@@ -45,12 +45,12 @@
 
 (defn- new-logseq-page
   "new logseq page and switch to this page on both page1 and page2"
-  []
+  [& [page-name]]
   (let [*page-name (atom nil)
         {:keys [_local-tx remote-tx]}
         (w/with-page @*page1
           (rtc/with-wait-tx-updated
-            (reset! *page-name (fixtures/create-page))))]
+            (reset! *page-name (fixtures/create-page page-name))))]
     (w/with-page @*page2
       (rtc/wait-tx-update-to remote-tx)
       (page/goto-page @*page-name))))
@@ -329,14 +329,7 @@ page2:
 ;;         (validate-2-graphs)))
     (testing "page rename"
       (let [page-name (str prefix 3)]
-        (let [*latest-remote-tx (atom nil)]
-          (w/with-page @*page1
-            (let [{:keys [_local-tx remote-tx]}
-                  (rtc/with-wait-tx-updated
-                    (page/new-page page-name))]
-              (reset! *latest-remote-tx remote-tx)))
-          (w/with-page @*page2
-            (rtc/wait-tx-update-to @*latest-remote-tx)))
+        (new-logseq-page page-name)
         (validate-2-graphs)
         (rtc/with-stop-restart-rtc
           [@*page1 @*page2]
@@ -347,3 +340,16 @@ page2:
           (w/with-page @*page2
             (page/rename-page page-name (str page-name "-rename2"))))
         (validate-2-graphs)))))
+
+(deftest long-block-title-test
+  (testing "insert >4KB block/title"
+    (let [long-block-title (apply str (repeat 5000 "a"))
+          {:keys [_local-tx remote-tx]}
+          (w/with-page @*page1
+            (rtc/with-wait-tx-updated
+              (b/new-block long-block-title)))]
+      (w/with-page @*page2
+        (rtc/wait-tx-update-to remote-tx))
+      (validate-2-graphs)
+      (w/with-page @*page2
+        (assert/assert-is-visible (loc/filter ".block-title-wrap" :has-text long-block-title))))))