|
59 | 59 | (it "is enabled on F# Files" |
60 | 60 | (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/FileTwo.fs") |
61 | 61 | (expect (type-of (eglot--current-server-or-lose)) :to-be 'eglot-fsautocomplete))) |
62 | | - (it "shows flymake errors" |
63 | | - (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/Error.fs") |
64 | | - (flymake-mode t) |
65 | | - (flymake-start) |
66 | | - (eglot-fsharp--sniff-diagnostics "test/Test1/Error.fs") |
67 | | - (goto-char (point-min)) |
68 | | - (search-forward "nonexisting") |
69 | | - (insert "x") |
70 | | - (eglot--signal-textDocument/didChange) |
71 | | - (flymake-goto-next-error 1 '() t) |
72 | | - (expect (face-at-point) :to-be 'flymake-error ))) |
73 | | - ;; (it "provides completion" |
74 | | - ;; (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/FileTwo.fs") |
75 | | - ;; (expect (plist-get (eglot--capabilities (eglot--current-server-or-lose)) :completionProvider) :not :to-be nil))) |
| 62 | + ;; (it "shows flymake errors" |
| 63 | + ;; (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/Error.fs") |
| 64 | + ;; (flymake-mode t) |
| 65 | + ;; (flymake-start) |
| 66 | + ;; (eglot-fsharp--sniff-diagnostics "test/Test1/Error.fs") |
| 67 | + ;; (goto-char (point-min)) |
| 68 | + ;; (search-forward "nonexisting") |
| 69 | + ;; (insert "x") |
| 70 | + ;; (eglot--signal-textDocument/didChange) |
| 71 | + ;; (flymake-goto-next-error 1 '() t) |
| 72 | + ;; (expect (face-at-point) :to-be 'flymake-error ))) |
| 73 | + (it "provides completion" |
| 74 | + (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/FileTwo.fs") |
| 75 | + (expect (plist-get (eglot--capabilities (eglot--current-server-or-lose)) :completionProvider) :not :to-be nil))) |
76 | 76 | ;; (it "completes function in other modules" |
77 | 77 | ;; (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/Program.fs") |
78 | 78 | ;; (search-forward "X.func") |
|
0 commit comments