procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add test for bug#56078 fix

Browse source 
* test/lisp/dnd-tests.el (dnd-tests-open-remote-url): New test.
This commit is contained in:
Po Lu 2022-06-21 10:12:00 +08:00
parent 01834ba0c9
commit 1d681a5700
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
test/lisp/dnd-tests.el
View file

@ -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