From mboxrd@z Thu Jan 1 00:00:00 1970 From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Subject: bug#25476: pivot-root test fails on Ubuntu 16.04 Date: Wed, 01 Feb 2017 14:08:24 +0100 Message-ID: <87wpdaawjb.fsf@gnu.org> References: <1484760171.3242.7.camel@tourbillion-technology.com> <87shofuihf.fsf@gnu.org> <1484954418.3990.19.camel@tourbillion-technology.com> <877f5ckwm2.fsf@gnu.org> <1485881327.12269.10.camel@tourbillion-technology.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35888) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cYuep-0002wq-PQ for bug-guix@gnu.org; Wed, 01 Feb 2017 08:09:13 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cYuek-0002xm-MC for bug-guix@gnu.org; Wed, 01 Feb 2017 08:09:07 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:54723) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cYuek-0002xi-IX for bug-guix@gnu.org; Wed, 01 Feb 2017 08:09:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cYuek-00011R-Bk for bug-guix@gnu.org; Wed, 01 Feb 2017 08:09:02 -0500 Sender: "Debbugs-submit" Resent-Message-ID: In-Reply-To: <1485881327.12269.10.camel@tourbillion-technology.com> (Paul Garlick's message of "Tue, 31 Jan 2017 16:48:47 +0000") List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: Paul Garlick Cc: 25476@debbugs.gnu.org Hi, Paul Garlick skribis: > test-name: pivot-root > location: /data/paul/sourceCode/guix/tests/syscalls.scm:154 > source: > + (test-equal > + "pivot-root" > + #t > + (match (pipe) > + ((in . out) > + (match (clone (logior CLONE_NEWUSER CLONE_NEWNS SIGCHLD)) > + (0 > + (dynamic-wind > + (const #t) > + (lambda () > + (close in) > + (call-with-temporary-directory > + (lambda (root) > + (let ((put-old (string-append root "/real-roo= t"))) > + (mount "none" root "tmpfs") > + (mkdir put-old) > + (call-with-output-file > + (string-append root "/test") > + (lambda (port) (display "testing\n" port)= )) > + (pivot-root root put-old) > + (write (file-exists? "/test") out) > + (close out))))) > + (lambda () (primitive-exit 0)))) > + (pid (close out) > + (let ((result (read in))) > + (close in) > + (and (zero? (match (waitpid pid) > + ((_ . status) > + (status:exit-val status)))) > + result))))))) > expected-value: #t > actual-value: # > result: FAIL That would mean the child process exited with 0, yet it didn=E2=80=99t write anything to stdout. Not sure how this can happen. > test-name: utmpx-entries > location: /data/paul/sourceCode/guix/tests/syscalls.scm:444 > source: > + (test-assert > + "utmpx-entries" > + (match (utmpx-entries) > + (((? utmpx? entries) ...) > + (every (lambda (entry) > + (match (utmpx-user entry) > + ((? string?) (> (utmpx-pid entry) 0)) > + (#f #t))) > + entries)))) > actual-value: #f > result: FAIL This one is unrelated. Could you try this: --8<---------------cut here---------------start------------->8--- $ ./pre-inst-env guile GNU Guile 2.0.13 Copyright (C) 1995-2016 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guile-user)> ,use(guix build syscalls) scheme@(guile-user)> (utmpx-entries) $1 =3D (#< type: 6 =E2=80=A6> =E2=80=A6) scheme@(guile-user)> ,use(srfi srfi-1) scheme@(guile-user)> (find (lambda (entry) (and (string? (utmpx-user entry)= )(zero? (utmpx-pid entry)))) (utmpx-entries)) $2 =3D #f --8<---------------cut here---------------end--------------->8--- Most likely the assumption made in this test doesn=E2=80=99t hold on your s= ystem for some reason. Thank you, Ludo=E2=80=99.