try to execute slurp action

Author: afucher

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

@@ -4,7 +4,9 @@
    [com.github.ericdallo.clj4intellij.app-manager :as app-manager]
    [com.github.ericdallo.clj4intellij.test :as clj4intellij.test])
   (:import
-   [com.intellij.openapi.wm WindowManager]))
+   [com.intellij.openapi.wm WindowManager]
+   [com.intellij.openapi.actionSystem ActionManager]
+   [com.intellij.ide DataManager]))
 
 (set! *warn-on-reflection* true)
 
@@ -13,6 +15,22 @@
   (let [status-bar (.. (WindowManager/getInstance) (getStatusBar project))]
     (.getWidget status-bar widget-id)))
 
+
+(defn run-editor-action [action-id project]
+  (let [action (.getAction (ActionManager/getInstance) action-id)
+        context (.getDataContext (DataManager/getInstance))]
+
+
+    (println "Running action:" action-id)
+    (println "Action:" action)
+    (app-manager/write-command-action
+     project
+     (fn []
+       (.actionPerformed
+        action
+        (com.intellij.openapi.actionSystem.AnActionEvent/createFromDataContext action-id nil context))))))
+
+
 (deftest foo-test
   (let [project-name "clojure.core"
         fixture (clj4intellij.test/setup project-name)
@@ -27,7 +45,11 @@
      project
      (fn [] (.openFileInEditor fixture clj-file)))
 
+
+
     (clj4intellij.test/dispatch-all)
+    (println "OLAAAA >> ")
+    (run-editor-action "ClojureLSP.ForwardSlurp" project)
 
     @(app-manager/invoke-later!
       {:invoke-fn (fn []