records: Add `recutils->alist' for public consumption.
[guix:guix.git] / test-env.in
1 #!/bin/sh
2
3 # GNU Guix --- Functional package management for GNU
4 # Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
5 #
6 # This file is part of GNU Guix.
7 #
8 # GNU Guix is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or (at
11 # your option) any later version.
12 #
13 # GNU Guix is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
20
21 # Usage: ./test-env COMMAND ARG...
22 #
23 # Run the daemon in the build directory, and run COMMAND within
24 # `pre-inst-env'.  This is used to run unit tests with the just-built
25 # daemon, unless `--disable-daemon' was passed at configure time.
26
27 if [ -x "@abs_top_builddir@/guix-daemon" ]
28 then
29     NIX_SETUID_HELPER="@abs_top_builddir@/nix-setuid-helper" # normally unused
30     NIX_IGNORE_SYMLINK_STORE=1  # in case the store is a symlink
31     NIX_STORE_DIR="@GUIX_TEST_ROOT@/store"
32     NIX_LOCALSTATE_DIR="@GUIX_TEST_ROOT@/var"
33     NIX_LOG_DIR="@GUIX_TEST_ROOT@/var/log/nix"
34     NIX_DB_DIR="@GUIX_TEST_ROOT@/db"
35     NIX_ROOT_FINDER="@abs_top_builddir@/nix/scripts/list-runtime-roots"
36
37     # Choose a PID-dependent name to allow for parallel builds.  Note
38     # that the directory name must be chosen so that the socket's file
39     # name is less than 108-char long (the size of `sun_path' in glibc).
40     # Currently, in Nix builds, we're at ~106 chars...
41     NIX_STATE_DIR="@GUIX_TEST_ROOT@/var/$$"
42
43     # A place to store data of the substituter.
44     GUIX_BINARY_SUBSTITUTE_URL="file://$NIX_STATE_DIR/substituter-data"
45     rm -rf "$NIX_STATE_DIR/substituter-data"
46     mkdir -p "$NIX_STATE_DIR/substituter-data"
47
48     # Place for the substituter's cache.
49     XDG_CACHE_HOME="$NIX_STATE_DIR/cache-$$"
50
51     export NIX_IGNORE_SYMLINK_STORE NIX_STORE_DIR                       \
52         NIX_LOCALSTATE_DIR NIX_LOG_DIR NIX_STATE_DIR NIX_DB_DIR         \
53         NIX_ROOT_FINDER NIX_SETUID_HELPER GUIX_BINARY_SUBSTITUTE_URL    \
54         XDG_CACHE_HOME
55
56     # Do that because store.scm calls `canonicalize-path' on it.
57     mkdir -p "$NIX_STORE_DIR"
58
59     # Set the umask to avoid "suspicious ownership or permission" errors.
60     # See <http://lists.gnu.org/archive/html/bug-guix/2013-07/msg00033.html>.
61     umask 0022
62
63     # Launch the daemon without chroot support because is may be
64     # unavailable, for instance if we're not running as root.
65     "@abs_top_builddir@/pre-inst-env"                           \
66         "@abs_top_builddir@/guix-daemon" --disable-chroot &
67
68     daemon_pid=$!
69     trap "kill $daemon_pid ; rm -rf $NIX_STATE_DIR" EXIT
70 fi
71
72 "@abs_top_builddir@/pre-inst-env" "$@"
73 exit $?