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

Add tests for network-lookup-address-info

Browse source 
* test/src/process-tests.el (lookup-family-specification): Test
network-lookup-address-info api.
(lookup-unicode-domains): Test that unicode domains fail.
(lookup-google): Test that normal lookups succeed.
(non-existent-lookup-failure): Check that known non-existent
domains fail.
This commit is contained in:
Robert Pluim 2018-07-17 13:10:21 +02:00
parent adff0d5f75
commit f8d9d00b0e
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -22,6 +22,7 @@
;;; Code:
(require 'ert)
(require 'puny)
;; Timeout in seconds; the test fails if the timeout is reached.
(defvar process-test-sentinel-wait-timeout 2.0)
@ -215,5 +216,29 @@
(string-to-list "stdout\n")
(string-to-list "stderr\n"))))))
(ert-deftest lookup-family-specification ()
"network-lookup-address-info should only accept valid family symbols."
(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"
(should-error (network-lookup-address-info "faß.de"))
(should (length (network-lookup-address-info (puny-encode-domain "faß.de")))))
(ert-deftest lookup-google ()
"Check that we can look up google IP addresses"
(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))))
(ert-deftest non-existent-lookup-failure ()
"Check that looking up non-existent domain returns nil"
(should (eq nil (network-lookup-address-info "emacs.invalid"))))
(provide 'process-tests)
;; process-tests.el ends here.