From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 20 Apr 2024 07:25:12 +0000 (+0300)
Subject: ; On MS-Windows, skip eglot test that creates symlinks
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ae50460f18ca08e33a750078789131fd8119897;p=emacs.git

; 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.

(cherry picked from commit b93d568e47cd8c1a0e5f524d443287927f8a423c)
---

diff --git a/test/lisp/progmodes/eglot-tests.el b/test/lisp/progmodes/eglot-tests.el
index 282e66f56a5..c4ca870fbe6 100644
--- 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(); }")