[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: master 1d681a5700: Add test for bug#56078 fix
From: |
Robert Pluim |
Subject: |
Re: master 1d681a5700: Add test for bug#56078 fix |
Date: |
Tue, 21 Jun 2022 10:10:49 +0200 |
>>>>> On Mon, 20 Jun 2022 22:12:20 -0400 (EDT), Po Lu via Mailing list for
>>>>> Emacs changes <emacs-diffs@gnu.org> said:
Po> +(ert-deftest dnd-tests-open-remote-url ()
Po> + ;; Expensive test to make sure opening an FTP URL during
Po> + ;; drag-and-drop works.
Po> + :tags '(:expensive-test)
Po> + ;; Don't run this test if the FTP server isn't reachable.
Po> + (skip-unless (and (fboundp 'network-lookup-address-info)
Po> + (network-lookup-address-info "ftp.gnu.org")))
Po> + ;; Make sure bug#56078 doesn't happen again.
Po> + (let ((url "ftp://anonymous@ftp.gnu.org/")
Po> + ;; This prints a bunch of annoying spaces to stdout.
Po> + (inhibit-message t))
Po> + (should (prog1 t (dnd-open-remote-url url 'private)))))
Po> +
Po> (provide 'dnd-tests)
Po> ;;; dnd-tests.el ends here
I thought that the test suite 'phoning home' was frowned upon (and
which platform doesnʼt have network-lookup-address-info?)
Robert
--
- Re: master 1d681a5700: Add test for bug#56078 fix,
Robert Pluim <=