emacs-devel
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]