mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-26 11:01:48 +02:00
guix download: Add '-o' option.
* guix/scripts/download.scm (download-to-file, download-to-store*): New procedures. (%default-options): Add 'download-proc'. (show-help): Adjust description and document '-o'. (%options): Add '-o'. (guix-download): Remove 'store' variable. Add 'fetch' and define 'path' to as its result. * tests/guix-download.sh: Add test.
This commit is contained in:
@@ -1,5 +1,5 @@
|
||||
# GNU Guix --- Functional package management for GNU
|
||||
# Copyright © 2012, 2015 Ludovic Courtès <ludo@gnu.org>
|
||||
# Copyright © 2012, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
|
||||
#
|
||||
# This file is part of GNU Guix.
|
||||
#
|
||||
@@ -35,6 +35,13 @@ then false; else true; fi
|
||||
# This one should succeed.
|
||||
guix download "file://$abs_top_srcdir/README"
|
||||
|
||||
# This one too, even if it cannot talk to the daemon.
|
||||
output="t-download-$$"
|
||||
trap 'rm -f "$output"' EXIT
|
||||
GUIX_DAEMON_SOCKET="/nowhere" guix download -o "$output" \
|
||||
"file://$abs_top_srcdir/README"
|
||||
cmp "$output" "$abs_top_srcdir/README"
|
||||
|
||||
# This one should fail.
|
||||
if guix download "file:///does-not-exist" "file://$abs_top_srcdir/README"
|
||||
then false; else true; fi
|
||||
|
||||
Reference in New Issue
Block a user