diff options
| author | Robert Pluim <rpluim@gmail.com> | 2018-07-17 13:10:21 +0200 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2018-07-17 13:10:21 +0200 |
| commit | f8d9d00b0e95a7a62cd4fe8483793c26c3b753db (patch) | |
| tree | 6dea1c829a2ce23476da7f0f7267d84fd3e59eb1 /test/src/process-tests.el | |
| parent | adff0d5f75d4b3a74816527edb9ebe997c2089f3 (diff) | |
| download | emacs-f8d9d00b0e95a7a62cd4fe8483793c26c3b753db.tar.gz | |
Add tests for network-lookup-address-info
* 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.
Diffstat (limited to 'test/src/process-tests.el')
| -rw-r--r-- | test/src/process-tests.el | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/test/src/process-tests.el b/test/src/process-tests.el index 551b34ff371..2cc646e5a6c 100644 --- a/test/src/process-tests.el +++ b/test/src/process-tests.el @@ -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. |