diff options
| author | Michael Albinus | 2022-06-22 17:47:39 +0200 |
|---|---|---|
| committer | Michael Albinus | 2022-06-22 17:47:39 +0200 |
| commit | ec1fffdeca9c87a92b8c35545121b4ee3eec3ece (patch) | |
| tree | 58ddaf382164a84a4895591fc780051ccb42d23f | |
| parent | 47374d44167ce7a20d78c3c544434f389e0d726e (diff) | |
| download | emacs-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.el | 2 |
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"))) |