mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-21 03:52:16 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs

Browse source
This commit is contained in:
Eli Zaretskii 2019-08-24 16:46:00 +03:00
commit e2efcabdc6
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/src/process-tests.el
View file

@ -323,31 +323,39 @@ See Bug#30460."
invocation-directory))
:stop t)))
;; All the following tests require working DNS, which appears not to
;; be the case for hydra.nixos.org, so disable them there for now.
(ert-deftest lookup-family-specification ()
"network-lookup-address-info should only accept valid family symbols."
(skip-unless (not (getenv "EMACS_HYDRA_CI")))
(should-error (network-lookup-address-info "google.com" 'both))
(should (network-lookup-address-info "google.com" 'ipv4))
(should (network-lookup-address-info "google.com" 'ipv6)))
(ert-deftest lookup-unicode-domains ()
"Unicode domains should fail"
(skip-unless (not (getenv "EMACS_HYDRA_CI")))
(should-error (network-lookup-address-info "faß.de"))
(should (length (network-lookup-address-info (puny-encode-domain "faß.de")))))
(should (network-lookup-address-info (puny-encode-domain "faß.de"))))
(ert-deftest unibyte-domain-name ()
"Unibyte domain names should work"
(should (length (network-lookup-address-info (string-to-unibyte "google.com")))))
(skip-unless (not (getenv "EMACS_HYDRA_CI")))
(should (network-lookup-address-info (string-to-unibyte "google.com"))))
(ert-deftest lookup-google ()
"Check that we can look up google IP addresses"
(skip-unless (not (getenv "EMACS_HYDRA_CI")))
(let ((addresses-both (network-lookup-address-info "google.com"))
(addresses-v4 (network-lookup-address-info "google.com" 'ipv4))
(addresses-v6 (network-lookup-address-info "google.com" 'ipv6)))
(should (length addresses-both))
(should (length addresses-v4))
(should (length addresses-v6))))
(should addresses-both)
(should addresses-v4)
(should addresses-v6)))
(ert-deftest non-existent-lookup-failure ()
(skip-unless (not (getenv "EMACS_HYDRA_CI")))
"Check that looking up non-existent domain returns nil"
(should (eq nil (network-lookup-address-info "emacs.invalid"))))