summary refs log tree commit diff
path: root/tests/substitute.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-08-31 23:27:26 +0200
committerLudovic Courtès <ludo@gnu.org>2017-09-11 11:10:21 +0200
commit218f6eccafa8172221cf7efd5262107233e7a587 (patch)
tree86b62016dac6f6e9631809215678df8a98a69611 /tests/substitute.scm
parent79228a52d2561c40be2cc2ac9873fcc7a38cbb48 (diff)
downloadguix-218f6eccafa8172221cf7efd5262107233e7a587.tar.gz
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.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/substitute.scm b/tests/substitute.scm
index 69b272f2bb..b1d0fe9316 100644
--- a/tests/substitute.scm
+++ b/tests/substitute.scm
@@ -167,8 +167,7 @@ a file for NARINFO."
   (call-with-narinfo narinfo (lambda () body ...)))
 
 ;; Transmit these options to 'guix substitute'.
-(set! (@@ (guix scripts substitute) %cache-urls)
-  (list (getenv "GUIX_BINARY_SUBSTITUTE_URL")))
+(substitute-urls (list (getenv "GUIX_BINARY_SUBSTITUTE_URL")))
 
 (test-equal "query narinfo without signature"
   ""                                              ; not substitutable