From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mark H Weaver Subject: bug#20261: (mount-points) returns bogus values within the build environment Date: Sun, 05 Apr 2015 02:12:08 -0400 Message-ID: <87lhi73xzb.fsf@netris.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:33154) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yedmv-0001nF-Pd for bug-guix@gnu.org; Sun, 05 Apr 2015 02:12:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Yedms-0005ab-IJ for bug-guix@gnu.org; Sun, 05 Apr 2015 02:12:05 -0400 Received: from debbugs.gnu.org ([140.186.70.43]:55242) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yedms-0005aV-Eu for bug-guix@gnu.org; Sun, 05 Apr 2015 02:12:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Yedmr-0001wH-VX for bug-guix@gnu.org; Sun, 05 Apr 2015 02:12:02 -0400 Sender: "Debbugs-submit" Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:33130) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yedmb-0001n7-JZ for bug-guix@gnu.org; Sun, 05 Apr 2015 02:11:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YedmY-0005XC-Cs for bug-guix@gnu.org; Sun, 05 Apr 2015 02:11:45 -0400 Received: from world.peace.net ([50.252.239.5]:54675) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YedmY-0005X0-94 for bug-guix@gnu.org; Sun, 05 Apr 2015 02:11:42 -0400 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-bounces+gcggb-bug-guix=m.gmane.org@gnu.org To: 20261@debbugs.gnu.org Within the guix-daemon build environment, tests/syscalls.scm consistently fails on my i686 Libreboot X60 running linux-libre-3.19.3. Outside of the build environment the test passes. Here's the relevant except from syscalls.log: --8<---------------cut here---------------start------------->8--- Test begin: test-name: "mount-points" source-file: "tests/syscalls.scm" source-line: 47 source-form: (test-assert "mount-points" (member "/" (mount-points))) Test end: result-kind: fail actual-value: #f --8<---------------cut here---------------end--------------->8--- I built a simple derivation to print the result of (mount-points) within the build environment: --8<---------------cut here---------------start------------->8--- mhw@jojen:~/guix$ ./pre-inst-env guile GNU Guile 2.0.11 Copyright (C) 1995-2014 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-modules (guix packages) (guix derivations) (guix = store) (gnu packages commencement)) scheme@(guile-user)> (define store (open-connection)) scheme@(guile-user)> (build-expression->derivation store "test" '(begin (use-modules (guix build syscalls)) (format #t "Mount points: ~S\n" (mount-points))) #:modules '((guix build syscalls)) #:guile-for-build (package-derivation store guile-final "i686-linux" #:gra= ft? #f) #:local-build? #t) $1 =3D # /gnu/store/8kya2xpgn89crq5cfrmj7952yhfhr4dv-test a2420f0> scheme@(guile-user)> (build-derivations store (list $1)) building path(s) `/gnu/store/8kya2xpgn89crq5cfrmj7952yhfhr4dv-test' Mount points: ("/dev/full" "/dev/kvm" "/dev/null" "/dev/random" "/dev/tty" = "/dev/urandom" "/dev/zero" "/gnu/store/0ya00x8w06c1ph11lj5xwhiygy4b2lxd-gmp= -6.0.0a" "/gnu/store/1d0s2rhqzrjqyb27n0b6w84knj8y51xq-libatomic-ops-7.4.2" = "/gnu/store/269nlkyj5cqm7s4yfw3msc5sgj9is5qs-libunistring-0.9.5" "/gnu/stor= e/3195f0cppgglxr91ir631f4bnvpqk9z0-bash-4.3.33" "/gnu/store/3xil4ahvng7iqvc= bprp40glbvmjd843p-readline-6.3" "/gnu/store/5p57p4vznrf5j8wxpikwsdvxi4niv1d= l-ncurses-5.9" "/gnu/store/7br8pxkz6jgkpjldr6hjzbxhzgsp1hx1-module-import-c= ompiled" "/gnu/store/8lzvbsabc85pwfcszpav91flrl1lnc37-gcc-4.8.4-lib" "/gnu/= store/bna6pmd8llg7g63is95rrkf8cfb8ly0q-ncurses-5.9" "/gnu/store/jzw8d98hrmj= qgx9lfwmmnsgahqhcsbbr-pkg-config-0.28" "/gnu/store/lfh6q5ascp8b3545j9vr7ckb= qi1al741-readline-6.3" "/gnu/store/mlmxnahghpvnj9wmhmqbi14fq408vjxx-module-= import" "/gnu/store/nkv48yr5rhwdwgwv78gnap05nysq9wkn-libgc-7.4.2" "/gnu/sto= re/vd8ij01bq08icp87bz5gs2v4bq53bls6-glibc-2.21" "/gnu/store/wd3wpzzl3z8bygk= vjf4ka7486afbj0z3-libltdl-2.4.6" "/gnu/store/y2m6nf3w605k951fzmyanibzm3fd0c= aa-libffi-3.1" "/gnu/store/y5x64mcyzxjkjlq5la547lhd13b531mk-guile-2.0.11" "= /tmp/nix-build-test.drv-0" "/proc" "/dev/shm" "/dev/pts") builder for `/gnu/store/l7386hy58ffnj5pcvm621x6myml00bkj-test.drv' failed t= o produce output path `/gnu/store/8kya2xpgn89crq5cfrmj7952yhfhr4dv-test' guix/store.scm:621:0: In procedure build-things: guix/store.scm:621:0: Throw to key `srfi-34' with args `(#)'. Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. scheme@(guile-user) [1]> ,q scheme@(guile-user)> (use-modules (guix build syscalls)) scheme@(guile-user)> (mount-points) $2 =3D ("/proc" "/sys" "/" "/dev" "/home/mhw/Videos" "/dev/pts" "/dev/shm" = "/sys/kernel/debug") scheme@(guile-user)>=20 --8<---------------cut here---------------end--------------->8--- As you can see, "/" is listed as a mount point outside of the build environment, but not inside. Mark