Commit | Line | Data |
---|---|---|
69cfce50 LC |
1 | #!/bin/sh |
2 | ||
233e7676 | 3 | # GNU Guix --- Functional package management for GNU |
a87d66f3 | 4 | # Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 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 | ||
a87d66f3 LC |
53 | GUIX_LOG_DIRECTORY="@GUIX_TEST_ROOT@/var/log/guix" |
54 | GUIX_DATABASE_DIRECTORY="@GUIX_TEST_ROOT@/db" | |
8a9451c8 LC |
55 | |
56 | # Choose a PID-dependent name to allow for parallel builds. Note | |
57 | # that the directory name must be chosen so that the socket's file | |
58 | # name is less than 108-char long (the size of `sun_path' in glibc). | |
59 | # Currently, in Nix builds, we're at ~106 chars... | |
a87d66f3 | 60 | GUIX_STATE_DIRECTORY="@GUIX_TEST_ROOT@/var/$$" |
8a9451c8 | 61 | |
2178ed66 LC |
62 | # We can't exit when we reach the limit, because perhaps the test doesn't |
63 | # actually rely on the daemon, but at least warn. | |
a87d66f3 | 64 | if test "`echo -n "$GUIX_STATE_DIRECTORY/daemon-socket/socket" | wc -c`" -ge 108 |
2178ed66 LC |
65 | then |
66 | echo "warning: exceeding socket file name limit; test may fail!" >&2 | |
67 | fi | |
68 | ||
526382ff | 69 | # The configuration directory, for import/export signing keys. |
9dd674db DC |
70 | GUIX_CONFIGURATION_DIRECTORY="@GUIX_TEST_ROOT@/etc" |
71 | if [ ! -d "$GUIX_CONFIGURATION_DIRECTORY" ] | |
526382ff LC |
72 | then |
73 | # Copy the keys so that the secret key has the right permissions (the | |
74 | # daemon errors out when this is not the case.) | |
9dd674db | 75 | mkdir -p "$GUIX_CONFIGURATION_DIRECTORY" |
526382ff LC |
76 | cp "@abs_top_srcdir@/tests/signing-key.sec" \ |
77 | "@abs_top_srcdir@/tests/signing-key.pub" \ | |
9dd674db DC |
78 | "$GUIX_CONFIGURATION_DIRECTORY" |
79 | chmod 400 "$GUIX_CONFIGURATION_DIRECTORY/signing-key.sec" | |
526382ff LC |
80 | fi |
81 | ||
f65cf81a | 82 | # A place to store data of the substituter. |
a87d66f3 LC |
83 | GUIX_BINARY_SUBSTITUTE_URL="file://$GUIX_STATE_DIRECTORY/substituter-data" |
84 | rm -rf "$GUIX_STATE_DIRECTORY/substituter-data" | |
85 | mkdir -p "$GUIX_STATE_DIRECTORY/substituter-data" | |
f65cf81a | 86 | |
e9c6c584 NK |
87 | # For a number of tests, we want to allow unsigned narinfos, for |
88 | # simplicity. | |
89 | GUIX_ALLOW_UNAUTHENTICATED_SUBSTITUTES=yes | |
90 | ||
eba783b7 | 91 | # Place for the substituter's cache. |
a87d66f3 | 92 | XDG_CACHE_HOME="$GUIX_STATE_DIRECTORY/cache-$$" |
eba783b7 | 93 | |
f073e523 LC |
94 | # For the (guix import snix) tests. |
95 | NIXPKGS="@NIXPKGS@" | |
96 | ||
aac783ca | 97 | export NIX_IGNORE_SYMLINK_STORE NIX_STORE_DIR \ |
a1aaca31 | 98 | GUIX_LOG_DIRECTORY GUIX_STATE_DIRECTORY GUIX_DATABASE_DIRECTORY \ |
47e99e62 | 99 | GUIX_BINARY_SUBSTITUTE_URL \ |
aac783ca | 100 | GUIX_ALLOW_UNAUTHENTICATED_SUBSTITUTES \ |
9dd674db | 101 | GUIX_CONFIGURATION_DIRECTORY XDG_CACHE_HOME NIXPKGS |
69cfce50 | 102 | |
69cfce50 LC |
103 | # Launch the daemon without chroot support because is may be |
104 | # unavailable, for instance if we're not running as root. | |
f65cf81a | 105 | "@abs_top_builddir@/pre-inst-env" \ |
4938b0ee LC |
106 | "@abs_top_builddir@/guix-daemon" --disable-chroot \ |
107 | --substitute-urls="$GUIX_BINARY_SUBSTITUTE_URL" & | |
69cfce50 LC |
108 | |
109 | daemon_pid=$! | |
a87d66f3 | 110 | trap "kill $daemon_pid ; rm -rf $GUIX_STATE_DIRECTORY" EXIT |
4f024ef3 LC |
111 | |
112 | # The test suite expects the 'guile-bootstrap' package to be available. | |
113 | # Normally the Guile bootstrap tarball is downloaded by a fixed-output | |
114 | # derivation but when network access is missing we allow users to drop | |
115 | # the tarball in 'gnu/packages/bootstrap/SYSTEM' and "intern" it here. | |
116 | bootstrap_directory="@abs_top_builddir@/gnu/packages/bootstrap/@guix_system@" | |
117 | if [ -d "$bootstrap_directory" ] | |
118 | then | |
479c0e3f LC |
119 | # Make sure 'guix-daemon' is listening before invoking 'guix |
120 | # download'. | |
121 | "@abs_top_builddir@/pre-inst-env" "@GUILE@" -c \ | |
122 | '(use-modules (guix)) | |
123 | (let loop ((i 10)) | |
124 | (catch #t | |
125 | (lambda () (open-connection)) | |
126 | (lambda (key . args) | |
127 | (if (zero? i) | |
128 | (apply throw key args) | |
129 | (begin (usleep 500000) (loop (- i 1)))))))' | |
130 | ||
4f024ef3 LC |
131 | for file in "$bootstrap_directory"/guile-* |
132 | do | |
9e7b87dd | 133 | [ -f "$file" ] && \ |
4f024ef3 LC |
134 | "@abs_top_builddir@/pre-inst-env" \ |
135 | guix download "file://$file" > /dev/null | |
136 | done | |
137 | fi | |
69cfce50 LC |
138 | fi |
139 | ||
736755e2 LC |
140 | # Avoid issues that could stem from l10n, such as language/encoding |
141 | # mismatches. | |
142 | unset LANGUAGE | |
143 | LC_MESSAGES=C | |
144 | export LC_MESSAGES | |
145 | ||
442a6ff5 LC |
146 | # Disable grafts by default because they can cause things to be built |
147 | # regardless of '--dry-run'. | |
148 | GUIX_BUILD_OPTIONS="--no-grafts" | |
149 | export GUIX_BUILD_OPTIONS | |
150 | ||
16eb115e | 151 | # Ignore user settings. |
442a6ff5 | 152 | unset GUIX_PACKAGE_PATH |
8689901f | 153 | |
a7a4e6a4 LC |
154 | storedir="@storedir@" |
155 | prefix="@prefix@" | |
156 | datarootdir="@datarootdir@" | |
157 | datadir="@datadir@" | |
158 | localstatedir="@localstatedir@" | |
159 | export storedir prefix datarootdir datadir localstatedir | |
160 | ||
69cfce50 LC |
161 | "@abs_top_builddir@/pre-inst-env" "$@" |
162 | exit $? |