Add flymake integration-test

juergenhoetzel · juergenhoetzel · commit f1a66e579d14 · 2019-11-30T14:00:22.000+01:00
diff --git a/test/Test1/Test1.fsproj b/test/Test1/Test1.fsproj
@@ -6,6 +6,7 @@
   </PropertyGroup>
 
   <ItemGroup>
+    <Compile Include="Error.fs" />
     <Compile Include="FileTwo.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
diff --git a/test/integration-tests.el b/test/integration-tests.el
@@ -32,6 +32,19 @@
   (it "Can be installed"
     (eglot-fsharp--maybe-install)
     (expect (file-exists-p  (eglot-fsharp--path-to-server)) :to-be t))
+  (it "shows flymake errors"
+    (with-current-buffer (eglot--find-file-noselect "test/Test1/Error.fs")
+      (eglot--tests-connect 10)
+      (search-forward "nonexisting")
+      (flymake-mode t)
+      (flymake-start)
+      (goto-char (point-min))
+      (eglot--sniffing (:server-notifications s-notifs)
+        (eglot--wait-for (s-notifs 10)
+            (&key _id method &allow-other-keys)
+          (string= method "textDocument/publishDiagnostics")))
+      (flymake-goto-next-error 1 '() t)
+      (expect (face-at-point) :to-be 'flymake-error )))
   (it "is enabled on F# Files"
     (with-current-buffer (eglot--find-file-noselect "test/Test1/FileTwo.fs")
       (eglot--tests-connect 30)
