Commit | Line | Data |
---|---|---|
69cfce50 LC |
1 | #!/bin/sh |
2 | ||
233e7676 | 3 | # GNU Guix --- Functional package management for GNU |
aac783ca | 4 | # Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> |
69cfce50 | 5 | # |
233e7676 | 6 | # This file is part of GNU Guix. |
69cfce50 | 7 | # |
233e7676 | 8 | # GNU Guix is free software; you can redistribute it and/or modify it |
69cfce50 LC |
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 | # | |
233e7676 | 13 | # GNU Guix is distributed in the hope that it will be useful, but |
69cfce50 LC |
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 | |
233e7676 | 19 | # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
69cfce50 LC |
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 | ||
d8805b95 LC |
27 | |
28 | # Make sure 'cd' behaves deterministically and doesn't write anything to | |
29 | # stdout. | |
30 | unset CDPATH | |
31 | ||
4d9ed584 LC |
32 | case "$1" in |
33 | --quiet-stderr) | |
34 | # Silence the daemon's output, which is often useless, as well as that | |
35 | # of Bash (such as "Terminated" messages when 'guix-daemon' is | |
36 | # killed.) | |
37 | exec 2> /dev/null | |
38 | shift | |
39 | ;; | |
40 | esac | |
41 | ||
69cfce50 LC |
42 | if [ -x "@abs_top_builddir@/guix-daemon" ] |
43 | then | |
69cfce50 | 44 | NIX_STORE_DIR="@GUIX_TEST_ROOT@/store" |
8ad49499 LC |
45 | |
46 | # Do that because store.scm calls `canonicalize-path' on it. | |
47 | mkdir -p "$NIX_STORE_DIR" | |
48 | ||
49 | # Canonicalize the store directory name in an attempt to avoid symlinks in | |
50 | # it or its parent directories. See <http://bugs.gnu.org/17935>. | |
51 | NIX_STORE_DIR="`cd "@GUIX_TEST_ROOT@/store"; pwd -P`" | |
52 | ||
69cfce50 | 53 | NIX_LOCALSTATE_DIR="@GUIX_TEST_ROOT@/var" |
aa2480e5 | 54 | NIX_LOG_DIR="@GUIX_TEST_ROOT@/var/log/guix" |
69cfce50 LC |
55 | NIX_DB_DIR="@GUIX_TEST_ROOT@/db" |
56 | NIX_ROOT_FINDER="@abs_top_builddir@/nix/scripts/list-runtime-roots" | |
8a9451c8 LC |
57 | |
58 | # Choose a PID-dependent name to allow for parallel builds. Note | |
59 | # that the directory name must be chosen so that the socket's file | |
60 | # name is less than 108-char long (the size of `sun_path' in glibc). | |
61 | # Currently, in Nix builds, we're at ~106 chars... | |
f65cf81a | 62 | NIX_STATE_DIR="@GUIX_TEST_ROOT@/var/$$" |
8a9451c8 | 63 | |
2178ed66 LC |
64 | # We can't exit when we reach the limit, because perhaps the test doesn't |
65 | # actually rely on the daemon, but at least warn. | |
66 | if test "`echo -n "$NIX_STATE_DIR/daemon-socket/socket" | wc -c`" -ge 108 | |
67 | then | |
68 | echo "warning: exceeding socket file name limit; test may fail!" >&2 | |
69 | fi | |
70 | ||
526382ff | 71 | # The configuration directory, for import/export signing keys. |
9dd674db DC |
72 | GUIX_CONFIGURATION_DIRECTORY="@GUIX_TEST_ROOT@/etc" |
73 | if [ ! -d "$GUIX_CONFIGURATION_DIRECTORY" ] | |
526382ff LC |
74 | then |
75 | # Copy the keys so that the secret key has the right permissions (the | |
76 | # daemon errors out when this is not the case.) | |
9dd674db | 77 | mkdir -p "$GUIX_CONFIGURATION_DIRECTORY" |
526382ff LC |
78 | cp "@abs_top_srcdir@/tests/signing-key.sec" \ |
79 | "@abs_top_srcdir@/tests/signing-key.pub" \ | |
9dd674db DC |
80 | "$GUIX_CONFIGURATION_DIRECTORY" |
81 | chmod 400 "$GUIX_CONFIGURATION_DIRECTORY/signing-key.sec" | |
526382ff LC |
82 | fi |
83 | ||
f65cf81a LC |
84 | # A place to store data of the substituter. |
85 | GUIX_BINARY_SUBSTITUTE_URL="file://$NIX_STATE_DIR/substituter-data" | |
86 | rm -rf "$NIX_STATE_DIR/substituter-data" | |
87 | mkdir -p "$NIX_STATE_DIR/substituter-data" | |
88 | ||
e9c6c584 NK |
89 | # For a number of tests, we want to allow unsigned narinfos, for |
90 | # simplicity. | |
91 | GUIX_ALLOW_UNAUTHENTICATED_SUBSTITUTES=yes | |
92 | ||
eba783b7 LC |
93 | # Place for the substituter's cache. |
94 | XDG_CACHE_HOME="$NIX_STATE_DIR/cache-$$" | |
95 | ||
f073e523 LC |
96 | # For the (guix import snix) tests. |
97 | NIXPKGS="@NIXPKGS@" | |
98 | ||
aac783ca LC |
99 | export NIX_IGNORE_SYMLINK_STORE NIX_STORE_DIR \ |
100 | NIX_LOCALSTATE_DIR NIX_LOG_DIR NIX_STATE_DIR NIX_DB_DIR \ | |
101 | NIX_ROOT_FINDER GUIX_BINARY_SUBSTITUTE_URL \ | |
102 | GUIX_ALLOW_UNAUTHENTICATED_SUBSTITUTES \ | |
9dd674db | 103 | GUIX_CONFIGURATION_DIRECTORY XDG_CACHE_HOME NIXPKGS |
69cfce50 | 104 | |
69cfce50 LC |
105 | # Launch the daemon without chroot support because is may be |
106 | # unavailable, for instance if we're not running as root. | |
f65cf81a | 107 | "@abs_top_builddir@/pre-inst-env" \ |
4938b0ee LC |
108 | "@abs_top_builddir@/guix-daemon" --disable-chroot \ |
109 | --substitute-urls="$GUIX_BINARY_SUBSTITUTE_URL" & | |
69cfce50 LC |
110 | |
111 | daemon_pid=$! | |
112 | trap "kill $daemon_pid ; rm -rf $NIX_STATE_DIR" EXIT | |
113 | fi | |
114 | ||
736755e2 LC |
115 | # Avoid issues that could stem from l10n, such as language/encoding |
116 | # mismatches. | |
117 | unset LANGUAGE | |
118 | LC_MESSAGES=C | |
119 | export LC_MESSAGES | |
120 | ||
442a6ff5 LC |
121 | # Disable grafts by default because they can cause things to be built |
122 | # regardless of '--dry-run'. | |
123 | GUIX_BUILD_OPTIONS="--no-grafts" | |
124 | export GUIX_BUILD_OPTIONS | |
125 | ||
16eb115e | 126 | # Ignore user settings. |
442a6ff5 | 127 | unset GUIX_PACKAGE_PATH |
8689901f | 128 | |
a7a4e6a4 LC |
129 | storedir="@storedir@" |
130 | prefix="@prefix@" | |
131 | datarootdir="@datarootdir@" | |
132 | datadir="@datadir@" | |
133 | localstatedir="@localstatedir@" | |
134 | export storedir prefix datarootdir datadir localstatedir | |
135 | ||
69cfce50 LC |
136 | "@abs_top_builddir@/pre-inst-env" "$@" |
137 | exit $? |