set lsp server path

Author: afucher

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

@@ -1,12 +1,18 @@
 (ns com.github.clojure-lsp.intellij.foo-test
   (:require
+   [clojure.java.io :as io]
    [clojure.test :refer [deftest is]]
+   [com.github.clojure-lsp.intellij.client :as lsp-client]
+   [com.github.clojure-lsp.intellij.db :as db]
+   [com.github.clojure-lsp.intellij.server :as server]
    [com.github.ericdallo.clj4intellij.app-manager :as app-manager]
    [com.github.ericdallo.clj4intellij.test :as clj4intellij.test])
   (:import
-   [com.intellij.openapi.wm WindowManager]
+   [com.github.clojure_lsp.intellij.extension SettingsState]
+   [com.intellij.ide DataManager]
    [com.intellij.openapi.actionSystem ActionManager]
-   [com.intellij.ide DataManager]))
+   [com.intellij.openapi.components ServiceManager]
+   [com.intellij.openapi.wm WindowManager]))
 
 (set! *warn-on-reflection* true)
 
@@ -45,10 +51,27 @@
      project
      (fn [] (.openFileInEditor fixture clj-file)))
 
+       ;; Para configurações persistentes via ServiceManager
+    (let [my-settings (ServiceManager/getService SettingsState)] ;; Substitua pela classe real
+      (.setServerPath my-settings "/tmp/clojure-lsp") ;; Atualiza o caminho do servidor
+      (.loadState my-settings my-settings));; Atualiza estado
+    (println "LSP exists? >> ")
+    (println (.exists (io/as-file "/tmp/clojure-lsp")))
+    (server/start! project)
+
+    #_(clj4intellij.test/dispatch-all)
+    (println "status LSP >> ")
+    (println (lsp-client/server-status project))
+    (println (db/get-in project [:status]))
+    (Thread/sleep 10000)
+    #_(clj4intellij.test/dispatch-all-until
+       {:cond-fn (fn [] (= (db/get-in project [:status]) :started))
+        :millis 3000})
+    (println "status LSP >> ")
+    (println (lsp-client/server-status project))
+    (println (db/get-in project [:status]))
 
 
-    (clj4intellij.test/dispatch-all)
-    (println "OLAAAA >> ")
     (run-editor-action "ClojureLSP.ForwardSlurp" project)
 
     @(app-manager/invoke-later!

testdata/foo.clj

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

testdata/foo_expected.clj

@@ -1,3 +1,3 @@
 (ns foo)
 
-(println "Olaa")
+(println "Oiii")