diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-10-29 22:23:21 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-11-11 00:14:31 +0100 |
| commit | b3240ae846cb1ace2322a68eca3497f11d0be6f1 (patch) | |
| tree | da0a521a3fdd2896214cb3010949777f54622d72 /tests | |
| parent | 04d929570ad816793d7e0024a11314124ce87f98 (diff) | |
| download | guix-b3240ae846cb1ace2322a68eca3497f11d0be6f1.tar guix-b3240ae846cb1ace2322a68eca3497f11d0be6f1.tar.gz | |
import: print: Correctly handle URI lists.
* guix/import/print.scm (package->code)[factorized-uri-code]: New
procedure.
[source->code]: Use it, and factorize URI when it's a list.
* tests/print.scm (pkg-with-origin-input): Check origin URI to a list.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/print.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/print.scm b/tests/print.scm index ad19f4573a..7f4c8ccdd1 100644 --- a/tests/print.scm +++ b/tests/print.scm @@ -73,8 +73,10 @@ (version "1.2.3") (source (origin (method url-fetch) - (uri (string-append "file:///tmp/test-" - version ".tar.gz")) + (uri (list (string-append "file:///tmp/test-" + version ".tar.gz") + (string-append "http://example.org/test-" + version ".tar.gz"))) (sha256 (base32 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah")))) |