executa slurp e valida arquivo

Author: afucher

src/test/clojure/com/github/clojure_lsp/intellij/foo_test.clj

@@ -12,8 +12,8 @@
    [com.intellij.ide DataManager]
    [com.intellij.openapi.actionSystem ActionManager]
    [com.intellij.openapi.components ServiceManager]
-   [com.intellij.openapi.wm WindowManager]
-   [com.intellij.testFramework EditorTestUtil]))
+   [com.intellij.openapi.editor LogicalPosition]
+   [com.intellij.openapi.wm WindowManager]))
 
 (set! *warn-on-reflection* true)
 
@@ -22,15 +22,6 @@
   (let [status-bar (.. (WindowManager/getInstance) (getStatusBar project))]
     (.getWidget status-bar widget-id)))
 
-(defn ensure-editor
-  "Ensure the editor was created in the UI thread"
-  [project]
-  (let [repl-content (repl-content project)]
-    @(app-manager/invoke-later!
-      {:invoke-fn (fn []
-                    (.addNotify repl-content)
-                    (.getEditor repl-content true))})))
-
 (defn run-editor-action [action-id project]
   (let [action (.getAction (ActionManager/getInstance) action-id)
         context (.getDataContext (DataManager/getInstance))]
@@ -52,8 +43,7 @@
         deps-file (.createFile fixture "deps.edn" "{}")
         _ (.setTestDataPath fixture "testdata")
         clj-file (.copyFileToProject fixture "foo.clj")
-        project (.getProject fixture)
-        editor (.getEditor fixture)]
+        project (.getProject fixture)]
     (is (= project-name (.getName project)))
     (is deps-file)
 
@@ -81,10 +71,29 @@
     (println (lsp-client/server-status project))
     (println (db/get-in project [:status]))
 
-    (println "editor >> ")
-    (println editor)
+    (let [editor (.getEditor fixture)
+          document (.getDocument editor)
+          offset (.getLineStartOffset document 2)
+          caret (.getCaretModel editor)
+          pos (.getLogicalPosition caret)
+          new-position (LogicalPosition. 2 8)]
+      (println "editor >> ")
+      (println editor)
+      (println caret)
+      (println pos)
+      (println (.getVisualPosition caret))
+      (println (.getText document))
+      @(app-manager/invoke-later!
+        {:invoke-fn (fn []
+                      #_(.moveToOffset caret (+ offset 9))
+                      (.moveToLogicalPosition caret new-position))})
+      (println (.getLogicalPosition caret))
+      (println (.getVisualPosition caret)))
     (run-editor-action "ClojureLSP.ForwardSlurp" project)
 
+    (clj4intellij.test/dispatch-all)
+    (println (-> fixture .getEditor .getDocument .getText))
+
     @(app-manager/invoke-later!
       {:invoke-fn (fn []
                     (let [widget (get-status-bar-widget project "ClojureLSPStatusBar")]

testdata/foo.clj

@@ -1,3 +1,3 @@
 (ns foo)
 
-(println<caret>) "Oiii"
+(println) "Oiii"