mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Add `getaddrinfo' test.

Browse source 
* test-suite/tests/net-db.test ("getaddrinfo")["port 80 with family and
  socket type"]: New test.
This commit is contained in:
Ludovic Courtès 2010-02-15 18:43:20 +01:00
parent 3474222a65
commit 3ea159afc5
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test-suite/tests/net-db.test
View file

@ -54,6 +54,17 @@
#t #t
ai)))) ai))))
(pass-if "port 80 with family and socket type"
(let ((ai (getaddrinfo #f "80" (logior AI_ADDRCONFIG AI_NUMERICSERV)
AF_UNSPEC SOCK_STREAM)))
(and (> (length ai) 0)
(fold (lambda (ai ok?)
(let ((sa (addrinfo:addr ai)))
(and ok?
(= (sockaddr:port sa) 80))))
#t
ai))))
(pass-if "no name" (pass-if "no name"
(catch 'getaddrinfo-error (catch 'getaddrinfo-error
(lambda () (lambda ()