diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-12-05 22:41:58 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-12-05 22:42:11 +0100 |
| commit | b980f0f9fd6f926f2a1130f77bd3cdb70e741429 (patch) | |
| tree | 5d640c98f4126530c84cc2f7b61fee878c547d95 /tests/utils.scm | |
| parent | f5c82e15e0e76b855bc4cc88ffb79331b7083f39 (diff) | |
tests: Remove hard-coded /nix/store.
* tests/utils.scm ("store-path-package-name"): Use (%store-prefix)
instead of a hard-coded "/nix/store".
Diffstat (limited to 'tests/utils.scm')
| -rw-r--r-- | tests/utils.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 0a6e8a08332..ba04e281eb1 100644 --- a/tests/utils.scm +++ b/tests/utils.scm | |||
| @@ -18,7 +18,7 @@ | |||
| 18 | 18 | ||
| 19 | (define-module (test-utils) | 19 | (define-module (test-utils) |
| 20 | #:use-module (guix utils) | 20 | #:use-module (guix utils) |
| 21 | #:use-module ((guix store) #:select (store-path-package-name)) | 21 | #:use-module ((guix store) #:select (%store-prefix store-path-package-name)) |
| 22 | #:use-module (srfi srfi-1) | 22 | #:use-module (srfi srfi-1) |
| 23 | #:use-module (srfi srfi-11) | 23 | #:use-module (srfi srfi-11) |
| 24 | #:use-module (srfi srfi-64) | 24 | #:use-module (srfi srfi-64) |
| @@ -127,7 +127,8 @@ | |||
| 127 | (test-equal "store-path-package-name" | 127 | (test-equal "store-path-package-name" |
| 128 | "bash-4.2-p24" | 128 | "bash-4.2-p24" |
| 129 | (store-path-package-name | 129 | (store-path-package-name |
| 130 | "/nix/store/qvs2rj2ia5vci3wsdb7qvydrmacig4pg-bash-4.2-p24")) | 130 | (string-append (%store-prefix) |
| 131 | "/qvs2rj2ia5vci3wsdb7qvydrmacig4pg-bash-4.2-p24"))) | ||
| 131 | 132 | ||
| 132 | (test-end) | 133 | (test-end) |
| 133 | 134 | ||
