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

Test 'network-lookup-address-info' argument type checking

Browse source 
* test/src/process-tests.el (lookup-hints-values): Pass in
non-string values, which should result in type errors.
This commit is contained in:
Robert Pluim 2024-09-19 10:06:20 +02:00
parent 29c610a832
commit 1b1b922992
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -462,7 +462,9 @@ See Bug#30460."
(ipv6-addrs
'("fe80::1" "e301::203:1" "e301:203::1"
"e301:0203::1" "::1" "::0"
"0343:1:2::3" "343:001:2::3")))
"0343:1:2::3" "343:001:2::3"))
(invalid-values
'(1 a 1.0)))
(dolist (a ipv4-invalid-addrs)
(should-not (network-lookup-address-info a nil 'numeric))
(should-not (network-lookup-address-info a 'ipv4 'numeric)))
@ -471,6 +473,8 @@ See Bug#30460."
(dolist (a ipv4-addrs)
(should (network-lookup-address-info a nil 'numeric))
(should (network-lookup-address-info a 'ipv4 'numeric)))
(dolist (a invalid-values)
(should-error (network-lookup-address-info a)))
(when (ipv6-is-available)
(dolist (a ipv4-addrs)
(should-not (network-lookup-address-info a 'ipv6 'numeric)))