; On MS-Windows, skip eglot test that creates symlinks

* test/lisp/progmodes/eglot-tests.el (eglot-test-basic-symlink):
Skip this test on MS-Windows.

diff --git a/test/lisp/progmodes/eglot-tests.el b/test/lisp/progmodes/eglot-tests.el
index 282e66f56a5d415d4fbfa404257f4a1e1d11f59b..c4ca870fbe6ada6d8aba7508fe837981d1441e92 100644 (file)
--- a/test/lisp/progmodes/eglot-tests.el
+++ b/test/lisp/progmodes/eglot-tests.el
@@ -439,6 +439,8 @@ directory hierarchy."
 (ert-deftest eglot-test-basic-symlink ()
   "Test basic symlink support."
   (skip-unless (executable-find "clangd"))
+  ;; MS-Windows either fails symlink creation or pops up UAC prompts.
+  (skip-when (eq system-type 'windows-nt))
   (eglot--with-fixture
       `(("symlink-project" .
          (("main.cpp" . "#include\"foo.h\"\nint main() { return foo(); }")