configure testdata and assert files

Author: afucher

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

@@ -1,9 +1,42 @@
 (ns com.github.clojure-lsp.intellij.foo-test
   (:require
-   [clojure.test :refer [deftest is testing]]))
+   [clojure.test :refer [deftest is]]
+   [com.github.ericdallo.clj4intellij.app-manager :as app-manager]
+   [com.github.ericdallo.clj4intellij.test :as clj4intellij.test])
+  (:import
+   [com.intellij.openapi.wm WindowManager]))
 
 (set! *warn-on-reflection* true)
 
-(deftest foo
-  (testing "foo"
+
+(defn get-status-bar-widget [project widget-id]
+  (let [status-bar (.. (WindowManager/getInstance) (getStatusBar project))]
+    (.getWidget status-bar widget-id)))
+
+(deftest foo-test
+  (let [project-name "clojure.core"
+        fixture (clj4intellij.test/setup project-name)
+        deps-file (.createFile fixture "deps.edn" "{}")
+        _ (.setTestDataPath fixture "testdata")
+        clj-file (.copyFileToProject fixture "foo.clj")
+        project (.getProject fixture)]
+    (is (= project-name (.getName project)))
+    (is deps-file)
+
+    (app-manager/write-command-action
+     project
+     (fn [] (.openFileInEditor fixture clj-file)))
+
+    (clj4intellij.test/dispatch-all)
+
+    @(app-manager/invoke-later!
+      {:invoke-fn (fn []
+                    (let [widget (get-status-bar-widget project "ClojureLSPStatusBar")]
+                      (println "Widget:" widget)
+                      (is (some? widget))))})
+
+    (.checkResultByFile fixture "foo_expected.clj")
+
     (is false)))
+
+

testdata/foo.clj

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

testdata/foo_expected.clj

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