diff options
author | Leo Famulari <leo@famulari.name> | 2016-03-21 12:22:31 -0400 |
---|---|---|
committer | Leo Famulari <leo@famulari.name> | 2016-03-21 12:22:31 -0400 |
commit | 09ec508a4c14d1bc09622d98f796548d79ab0552 (patch) | |
tree | 86cc5a2a67d35ad796bfa33d67869d670d65822e /tests/guix-daemon.sh | |
parent | 2dbed47f5c09347c9af42c5f5bacfccbc1ab4aff (diff) | |
parent | 71cafa0472a15f2234e24d3c6d8019ebb38685b0 (diff) | |
download | guix-09ec508a4c14d1bc09622d98f796548d79ab0552.tar.gz |
Merge branch 'master' into core-updates
Diffstat (limited to 'tests/guix-daemon.sh')
-rw-r--r-- | tests/guix-daemon.sh | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/guix-daemon.sh b/tests/guix-daemon.sh index 1f9c868293..7122eed0e6 100644 --- a/tests/guix-daemon.sh +++ b/tests/guix-daemon.sh @@ -1,5 +1,5 @@ # GNU Guix --- Functional package management for GNU -# Copyright © 2012, 2014, 2015 Ludovic Courtès <ludo@gnu.org> +# Copyright © 2012, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> # # This file is part of GNU Guix. # @@ -27,8 +27,9 @@ guix build --version drv="`guix build emacs -d`" out="`guile -c ' \ - (use-modules (guix) (gnu packages emacs)) \ + (use-modules (guix) (guix grafts) (gnu packages emacs)) \ (define store (open-connection)) \ + (%graft? #f) (display (derivation->output-path (package-derivation store emacs)))'`" hash_part="`basename $out | cut -c 1-32`" @@ -88,9 +89,12 @@ guix-daemon --no-substitutes --listen="$socket" --disable-chroot \ daemon_pid=$! guile -c " - (use-modules (guix) (guix tests) (srfi srfi-34)) + (use-modules (guix) (guix grafts) (guix tests) (srfi srfi-34)) (define store (open-connection-for-tests \"$socket\")) + ;; Disable grafts to avoid building more than needed. + (%graft? #f) + (define (build-without-failing drv) (lambda (store) (guard (c ((nix-protocol-error? c) (values #t store))) |