diff options
| author | Mark H Weaver <mhw@netris.org> | 2016-01-19 00:18:37 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2016-01-19 00:18:37 -0500 |
| commit | afe9f409491a055e5d058c8f747e80d1506391e5 (patch) | |
| tree | 3b3747c9d2df32019a46b283b94f0a7af05ebf1d /tests | |
| parent | bb8afbf5a1fbc85f700c0e07ce5581637e3674dc (diff) | |
| parent | 1348185ac2bb48b373495830267cff8ddc6b1fa5 (diff) | |
| download | guix-afe9f409491a055e5d058c8f747e80d1506391e5.tar guix-afe9f409491a055e5d058c8f747e80d1506391e5.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/derivations.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index 1bbc93fe5c..64cc8a94c9 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -472,6 +472,22 @@ (build-derivations %store (list drv)) #f))) +;; Here we should get the value of $NIX_STATE_DIR that the daemon sees, which +;; is a unique value for each test process; this value is the same as the one +;; we see in the process executing this file since it is set by 'test-env'. +(test-equal "derivation #:leaked-env-vars" + (getenv "NIX_STATE_DIR") + (let* ((value (getenv "NIX_STATE_DIR")) + (drv (derivation %store "leaked-env-vars" %bash + '("-c" "echo -n $NIX_STATE_DIR > $out") + #:hash (sha256 (string->utf8 value)) + #:hash-algo 'sha256 + #:inputs `((,%bash)) + #:leaked-env-vars '("NIX_STATE_DIR")))) + (and (build-derivations %store (list drv)) + (call-with-input-file (derivation->output-path drv) + get-string-all)))) + (define %coreutils (false-if-exception |