diff options
| -rw-r--r-- | tests/guix-daemon.sh | 56 |
1 files changed, 52 insertions, 4 deletions
diff --git a/tests/guix-daemon.sh b/tests/guix-daemon.sh index 698516490b..a73c9e22e3 100644 --- a/tests/guix-daemon.sh +++ b/tests/guix-daemon.sh @@ -1,5 +1,5 @@ # GNU Guix --- Functional package management for GNU -# Copyright © 2012 Ludovic Courtès <ludo@gnu.org> +# Copyright © 2012, 2014 Ludovic Courtès <ludo@gnu.org> # # This file is part of GNU Guix. # @@ -17,7 +17,7 @@ # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. # -# Test the daemon. +# Test the daemon and its interaction with 'guix substitute-binary'. # set -e @@ -25,5 +25,53 @@ set -e guix-daemon --version guix build --version -guix build -e '(@ (gnu packages bootstrap) %bootstrap-guile)' -guix build coreutils -n +drv="`guix build emacs -d`" +out="`guile -c ' \ + (use-modules (guix) (gnu packages emacs)) \ + (define store (open-connection)) \ + (display (derivation->output-path (package-derivation store emacs)))'`" + +hash_part="`basename $out | cut -c 1-32`" +narinfo="$hash_part.narinfo" +substitute_dir="`echo $GUIX_BINARY_SUBSTITUTE_URL | sed -'es,file://,,g'`" + +cat > "$substitute_dir/nix-cache-info"<<EOF +StoreDir: `dirname $drv` +WantMassQuery: 0 +EOF + +cat > "$substitute_dir/$narinfo"<<EOF +StorePath: $out +URL: /nowhere/example.nar +Compression: none +NarSize: 1234 +References: +System: `guile -c '(use-modules (guix)) (display (%current-system))'` +Deriver: $drv +EOF + +# Remove the cached narinfo. +rm -f "$XDG_CACHE_HOME/guix/substitute-binary/$hash_part" + +# Make sure we see the substitute. +guile -c ' + (use-modules (guix)) + (define store (open-connection)) + (set-build-options store #:use-substitutes? #t) + (exit (has-substitutes? store "'"$out"'"))' + +# Now, run guix-daemon --no-substitutes. +socket="$NIX_STATE_DIR/alternate-socket" +guix-daemon --no-substitutes --listen="$socket" --disable-chroot & +daemon_pid=$! +trap "kill $daemon_pid" EXIT + +# Make sure we DON'T see the substitute. +guile -c " + (use-modules (guix)) + (define store (open-connection \"$socket\")) + + ;; This setting MUST NOT override the daemon's --no-substitutes. + (set-build-options store #:use-substitutes? #t) + + (exit (not (has-substitutes? store \"$out\")))" |