diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-11-13 22:57:36 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-13 23:04:21 +0100 |
commit | ec4d308a9e306e8784c324a2f8511e27c50f9dff (patch) | |
tree | 73af7484ae7288c032eac7ce3966b96b818e17f0 /tests | |
parent | 352ec143de32e751286590ff51c40f5a32c7fa87 (diff) | |
download | gnu-guix-ec4d308a9e306e8784c324a2f8511e27c50f9dff.tar gnu-guix-ec4d308a9e306e8784c324a2f8511e27c50f9dff.tar.gz |
guix-download: Use code from (guix build download).
* guix-download.in (http-fetch, ftp-fetch): Remove.
(fetch-and-store): Replace `uri' parameter with `name', for the output
file name. Redirect the output of `fetch' to the error port.
(guix-download): Call `url-fetch' for all URI schemes except `file'.
Handle PATH equal to #f.
* guix/download.scm: Export `%mirrors'.
* tests/guix-download.sh: Change erroneous URL, because URLs at
example.com are all valid redirections.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/guix-download.sh | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/guix-download.sh b/tests/guix-download.sh index e756600404..3c0c6dc7cf 100644 --- a/tests/guix-download.sh +++ b/tests/guix-download.sh @@ -23,7 +23,7 @@ guix-download --version # Make sure it fails here. -if guix-download http://www.example.com/does-not-exist +if guix-download http://does.not/exist then false; else true; fi if guix-download unknown://some/where; |