aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2022-06-22 17:47:39 +0200
committerMichael Albinus2022-06-22 17:47:39 +0200
commitec1fffdeca9c87a92b8c35545121b4ee3eec3ece (patch)
tree58ddaf382164a84a4895591fc780051ccb42d23f
parent47374d44167ce7a20d78c3c544434f389e0d726e (diff)
downloademacs-ec1fffdeca9c87a92b8c35545121b4ee3eec3ece.tar.gz
emacs-ec1fffdeca9c87a92b8c35545121b4ee3eec3ece.zip
Fix dnd-tests-open-remote-url on EMBA
* test/lisp/dnd-tests.el (dnd-tests-open-remote-url): Check for ftp client.
-rw-r--r--test/lisp/dnd-tests.el2
1 files changed, 2 insertions, 0 deletions
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."
375 ;; Expensive test to make sure opening an FTP URL during 375 ;; Expensive test to make sure opening an FTP URL during
376 ;; drag-and-drop works. 376 ;; drag-and-drop works.
377 :tags '(:expensive-test) 377 :tags '(:expensive-test)
378 ;; Don't run if there is no ftp client.
379 (skip-unless (executable-find "ftp"))
378 ;; Don't run this test if the FTP server isn't reachable. 380 ;; Don't run this test if the FTP server isn't reachable.
379 (skip-unless (and (fboundp 'network-lookup-address-info) 381 (skip-unless (and (fboundp 'network-lookup-address-info)
380 (network-lookup-address-info "ftp.gnu.org"))) 382 (network-lookup-address-info "ftp.gnu.org")))