From: ludo@gnu.org (Ludovic Courtès)
To: guix-devel@gnu.org
Subject: GLib’s ‘network-address’ test failure
Date: Wed, 16 Oct 2013 21:51:10 +0200 [thread overview]
Message-ID: <874n8hatap.fsf@gnu.org> (raw)
GLib’s ‘network-address’ test is currently failing on Hydra,
specifically the assertion in this function (as reported by Mark and
Andreas):
--8<---------------cut here---------------start------------->8---
static void
find_ifname_and_index (void)
{
if (SCOPE_ID_TEST_INDEX != 0)
return;
#ifdef HAVE_IF_INDEXTONAME
for (SCOPE_ID_TEST_INDEX = 1; SCOPE_ID_TEST_INDEX < 255; SCOPE_ID_TEST_INDEX++) {
if (if_indextoname (SCOPE_ID_TEST_INDEX, SCOPE_ID_TEST_IFNAME))
break;
}
g_assert_cmpstr (SCOPE_ID_TEST_IFNAME, !=, "");
#endif
}
--8<---------------cut here---------------end--------------->8---
To see what ‘if_indextoname’ returns in our chroot, I tried this:
--8<---------------cut here---------------start------------->8---
(use-modules (guix store) (guix derivations) (guix monads) (guix utils)
(gnu packages guile))
(define builder '(begin
(use-modules (system foreign)
(rnrs bytevectors)
(srfi srfi-1))
(let ()
(define index->name
(let* ((ptr (dynamic-func "if_indextoname" (dynamic-link)))
(proc (pointer->procedure '* ptr
(list unsigned-int '*))))
(lambda (index)
(let* ((bv (make-bytevector 256))
(ret (proc index
(bytevector->pointer bv))))
(if (null-pointer? ret)
#f
(pointer->string ret))))))
(call-with-output-file (assoc-ref %outputs "out")
(lambda (port)
(write (zip (map index->name (iota 10))
(iota 10))
port))))))
(let* ((mdrv (derivation-expression "iface" (%current-system) builder '()))
(s (open-connection))
(drv (run-with-store s mdrv)))
(pk drv)
(build-derivations s (list drv)))
--8<---------------cut here---------------end--------------->8---
That returns a series of #f (whereas outside of the chroot BUILDER
returns '("lo" "eth0" "wlan0").)
This is a consequence of using CLONE_NEWNET, AIUI (see
<http://lxr.free-electrons.com/source/net/core/dev_ioctl.c#L20>, which
uses <http://lxr.free-electrons.com/source/net/core/dev.c#L812>.)
Now I don’t understand why the test passed, as least sometimes (it
certainly did on my machine.) Ideas welcome.
Anyway, I’ll come up with a simple patch to fix that.
Thanks,
Ludo’.
next reply other threads:[~2013-10-16 19:51 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-10-16 19:51 Ludovic Courtès [this message]
2013-10-17 21:57 ` GLib’s ‘network-address’ test failure Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=874n8hatap.fsf@gnu.org \
--to=ludo@gnu.org \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.