From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 22 Jun 2022 15:47:39 +0000 (+0200)
Subject: Fix dnd-tests-open-remote-url on EMBA
X-Git-Tag: emacs-29.0.90~1447^2~1531
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec1fffdeca9c87a92b8c35545121b4ee3eec3ece;p=emacs.git

Fix dnd-tests-open-remote-url on EMBA

* test/lisp/dnd-tests.el (dnd-tests-open-remote-url): Check for
ftp client.
---

diff --git a/test/lisp/dnd-tests.el b/test/lisp/dnd-tests.el
index 3ee92286f96..aae9c80273f 100644
--- a/test/lisp/dnd-tests.el
+++ b/test/lisp/dnd-tests.el
@@ -375,6 +375,8 @@ This function only tries to handle strings."
   ;; Expensive test to make sure opening an FTP URL during
   ;; drag-and-drop works.
   :tags '(:expensive-test)
+  ;; Don't run if there is no ftp client.
+  (skip-unless (executable-find "ftp"))
   ;; Don't run this test if the FTP server isn't reachable.
   (skip-unless (and (fboundp 'network-lookup-address-info)
                     (network-lookup-address-info "ftp.gnu.org")))