diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-08-31 23:27:26 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-11 11:10:21 +0200 |
| commit | 218f6eccafa8172221cf7efd5262107233e7a587 (patch) | |
| tree | 86b62016dac6f6e9631809215678df8a98a69611 /tests/substitute.scm | |
| parent | 79228a52d2561c40be2cc2ac9873fcc7a38cbb48 (diff) | |
substitute: Make substitute URLs a SRFI-39 parameter.
* guix/scripts/substitute.scm (%cache-urls): Rename to...
(%default-substitute-urls): ... this.
(substitute-urls): New variable.
(guix-substitute): Use it instead of %CACHE-URLS.
* tests/substitute.scm: Likewise.
Diffstat (limited to 'tests/substitute.scm')
| -rw-r--r-- | tests/substitute.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/substitute.scm b/tests/substitute.scm index 69b272f2bb4..b1d0fe93168 100644 --- a/tests/substitute.scm +++ b/tests/substitute.scm | |||
| @@ -167,8 +167,7 @@ a file for NARINFO." | |||
| 167 | (call-with-narinfo narinfo (lambda () body ...))) | 167 | (call-with-narinfo narinfo (lambda () body ...))) |
| 168 | 168 | ||
| 169 | ;; Transmit these options to 'guix substitute'. | 169 | ;; Transmit these options to 'guix substitute'. |
| 170 | (set! (@@ (guix scripts substitute) %cache-urls) | 170 | (substitute-urls (list (getenv "GUIX_BINARY_SUBSTITUTE_URL"))) |
| 171 | (list (getenv "GUIX_BINARY_SUBSTITUTE_URL"))) | ||
| 172 | 171 | ||
| 173 | (test-equal "query narinfo without signature" | 172 | (test-equal "query narinfo without signature" |
| 174 | "" ; not substitutable | 173 | "" ; not substitutable |