diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-05-17 12:09:40 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-31 23:25:24 +0200 |
commit | d2f36abd02088cdf1ceb26de2de9c2b33f50c09e (patch) | |
tree | 8276e220ac10d727b78d6c3f9ca1f9dc3404adbc /guix/import | |
parent | 09526da78f4f7c33e2c6b16c0b314d007f99d10f (diff) | |
download | guix-patches-d2f36abd02088cdf1ceb26de2de9c2b33f50c09e.tar guix-patches-d2f36abd02088cdf1ceb26de2de9c2b33f50c09e.tar.gz |
tests: pypi: Rewrite tests using a local HTTP server.
* guix/import/pypi.scm (%pypi-base-url): New variable.
(pypi-fetch): Use it.
* tests/pypi.scm (foo-json): Compute URLs relative to '%local-url'.
(test-json-1, test-json-2, test-source-hash): Remove.
(file-dump): New procedure.
(with-pypi): New macro.
("pypi->guix-package, no wheel")
("pypi->guix-package, wheels")
("pypi->guix-package, no usable requirement file.")
("pypi->guix-package, package name contains \"-\" followed by digits"):
Rewrite using 'with-pypi'.
Diffstat (limited to 'guix/import')
-rw-r--r-- | guix/import/pypi.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm index f780bf1f15..8c06b19cff 100644 --- a/guix/import/pypi.scm +++ b/guix/import/pypi.scm @@ -55,7 +55,8 @@ #:use-module (guix packages) #:use-module (guix upstream) #:use-module ((guix licenses) #:prefix license:) - #:export (parse-requires.txt + #:export (%pypi-base-url + parse-requires.txt parse-wheel-metadata specification->requirement-name guix-package->pypi-name @@ -67,6 +68,10 @@ ;; The PyPI API (notice the rhyme) is "documented" at: ;; <https://warehouse.readthedocs.io/api-reference/json/>. +(define %pypi-base-url + ;; Base URL of the PyPI API. + (make-parameter "https://pypi.org/pypi/")) + (define non-empty-string-or-false (match-lambda ("" #f) @@ -123,7 +128,7 @@ (define (pypi-fetch name) "Return a <pypi-project> record for package NAME, or #f on failure." - (and=> (json-fetch (string-append "https://pypi.org/pypi/" name "/json")) + (and=> (json-fetch (string-append (%pypi-base-url) name "/json")) json->pypi-project)) ;; For packages found on PyPI that lack a source distribution. |