From 3ae50460f18ca08e33a750078789131fd8119897 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 20 Apr 2024 10:25:12 +0300
Subject: [PATCH] ; 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)
---
 test/lisp/progmodes/eglot-tests.el | 2 ++
 1 file changed, 2 insertions(+)

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(); }")
-- 
2.39.5