From: Po Lu <luangruo@yahoo.com>
Date: Tue, 21 Jun 2022 02:12:00 +0000 (+0800)
Subject: Add test for bug#56078 fix
X-Git-Tag: emacs-29.0.90~1447^2~1575
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d681a57005c837a58c9b3a365bc59f7293c4df5;p=emacs.git

Add test for bug#56078 fix

* test/lisp/dnd-tests.el (dnd-tests-open-remote-url): New test.
---

diff --git a/test/lisp/dnd-tests.el b/test/lisp/dnd-tests.el
index dfd441b56df..3ee92286f96 100644
--- a/test/lisp/dnd-tests.el
+++ b/test/lisp/dnd-tests.el
@@ -371,5 +371,18 @@ This function only tries to handle strings."
   (should-not (dnd-get-local-file-uri "file://some-remote-host/path/to/foo"))
   (should-not (dnd-get-local-file-uri "file:///path/to/foo")))
 
+(ert-deftest dnd-tests-open-remote-url ()
+  ;; Expensive test to make sure opening an FTP URL during
+  ;; drag-and-drop works.
+  :tags '(:expensive-test)
+  ;; 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")))
+  ;; Make sure bug#56078 doesn't happen again.
+  (let ((url "ftp://anonymous@ftp.gnu.org/")
+        ;; This prints a bunch of annoying spaces to stdout.
+        (inhibit-message t))
+    (should (prog1 t (dnd-open-remote-url url 'private)))))
+
 (provide 'dnd-tests)
 ;;; dnd-tests.el ends here