mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Change getaddrinfo' test to handle the GNU-specific EAI_NODATA'.

Browse source 
* doc/ref/posix.texi (Network Databases): Mention `EAI_NODATA'.

* libguile/net_db.c (scm_getaddrinfo): Likewise for the docstring.

* test-suite/tests/net-db.test ("getaddrinfo")["no name"]: Handle
  `EAI_NODATA'.
This commit is contained in:
Ludovic Courtès 2011-01-05 22:17:26 +01:00
parent 8891bd1b16
commit 66d8613108
3 changed files with 23 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
;;;; net-db.test --- Test suite for `net-db' -*- mode: scheme; coding: utf-8; -*-
;;;; Ludovic Courtès <ludo@gnu.org>
;;;;
;;;; Copyright (C) 2010 Free Software Foundation, Inc.
;;;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -73,9 +73,16 @@
(throw 'unresolved))
(lambda (key errcode)
;; In some cases (e.g., in a chroot without
;; /etc/{hosts,resolv.conf}), this can result in `EAI_EAGAIN'.
;; /etc/{hosts,resolv.conf}), this can result in
;; `EAI_EAGAIN' (glibc 2.11), or `EAI_NODATA' (glibc 2.12).
(and (or (= errcode EAI_NONAME)
(= errcode EAI_AGAIN))
(and (defined? 'EAI_NODATA) ; GNU extension
(= errcode EAI_NODATA))
(= errcode EAI_AGAIN)
(begin
(format #t "unexpected error code: ~a ~s~%"
errcode (gai-strerror errcode))
#f))
(string? (gai-strerror errcode))))))
(pass-if "wrong service name"