diff --git a/src/main/frontend/handler/editor.cljs b/src/main/frontend/handler/editor.cljs index d8ed2a0077..47658a3905 100644 --- a/src/main/frontend/handler/editor.cljs +++ b/src/main/frontend/handler/editor.cljs @@ -1094,6 +1094,17 @@ (let [value (gobj/get input "value")] (extract-nearest-link-from-text value pos)))))))) +(defn- (follow-page-link-result {:page-title "Project" + :existing-page? true}) + (p/then + (fn [{:keys [events redirects]}] + (is (empty? events)) + (is (= [["Project"]] redirects)) + (done)))))) + +(deftest follow-link-under-cursor-creates-missing-page-test + (async done + (-> (follow-page-link-result {:page-title "May 15th, 2026" + :existing-page? false}) + (p/then + (fn [{:keys [events redirects]}] + (is (= [[:page/create "May 15th, 2026"]] events)) + (is (empty? redirects)) + (done)))))) + +(deftest follow-link-under-cursor-uses-worker-page-before-creating-test + (async done + (-> (follow-page-link-result {:page-title "May 15th, 2026" + :existing-page? false + :worker-page? true}) + (p/then + (fn [{:keys [events redirects]}] + (is (empty? events)) + (is (= [["May 15th, 2026"]] redirects)) + (done)))))) + (defn- keyup-handler "Spied version of editor/keyup-handler" [{:keys [value cursor-pos action commands]