check 6th method

Author: 64J0

test/integration-tests.el

@@ -79,12 +79,12 @@
       (delete-char -3)
       (completion-at-point)
       (expect (looking-back "X\\.func") :to-be t)))
-  ;; (it "finds definition in pervasives"
-  ;;   (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/Program.fs")
-  ;;     (search-forward "printfn")
-  ;;     (expect (current-word) :to-equal "printfn") ;sanity check
-  ;;     (call-interactively #'xref-find-definitions)
-  ;;     (expect (file-name-nondirectory (buffer-file-name)) :to-equal "fslib-extra-pervasives.fs")))
+  (it "finds definition in pervasives"
+    (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/Program.fs")
+      (search-forward "printfn")
+      (expect (current-word) :to-equal "printfn") ;sanity check
+      (call-interactively #'xref-find-definitions)
+      (expect (file-name-nondirectory (buffer-file-name)) :to-equal "fslib-extra-pervasives.fs")))
   ;; (it "finds definitions in other files of Project"
   ;;   (with-current-buffer (eglot-fsharp--find-file-noselect "test/Test1/Program.fs")
   ;;     (goto-char 150)