[jackhill/guix/guix.git] / tests / pypi.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 David Thompson <davet@gnu.org>
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (test-pypi)
  #:use-module (guix import pypi)
  #:use-module (guix base32)
  #:use-module (guix memoization)
  #:use-module (gcrypt hash)
  #:use-module (guix tests)
  #:use-module (guix build-system python)
  #:use-module ((guix build utils) #:select (delete-file-recursively which mkdir-p))
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 match))

(define test-json
  "{
  \"info\": {
    \"version\": \"1.0.0\",
    \"name\": \"foo\",
    \"license\": \"GNU LGPL\",
    \"summary\": \"summary\",
    \"home_page\": \"http://example.com\",
    \"classifiers\": [],
    \"download_url\": \"\"
  },
  \"urls\": [],
  \"releases\": {
    \"1.0.0\": [
      {
        \"url\": \"https://example.com/foo-1.0.0.egg\",
        \"packagetype\": \"bdist_egg\"
      }, {
        \"url\": \"https://example.com/foo-1.0.0.tar.gz\",
        \"packagetype\": \"sdist\"
      }, {
        \"url\": \"https://example.com/foo-1.0.0-py2.py3-none-any.whl\",
        \"packagetype\": \"bdist_wheel\"
      }
    ]
  }
}")

(define test-source-hash
  "")

(define test-specifications
  '("Fizzy [foo, bar]"
    "PickyThing<1.6,>1.9,!=1.9.6,<2.0a0,==2.4c1"
    "SomethingWithMarker[foo]>1.0;python_version<\"2.7\""
    "requests [security,tests] >= 2.8.1, == 2.8.* ; python_version < \"2.7\""
    "pip @ https://github.com/pypa/pip/archive/1.3.1.zip#\
sha1=da9234ee9982d4bbb3c72346a6de940a148ea686"))

(define test-requires.txt "\
# A comment
 # A comment after a space
foo ~= 3
bar != 2

[test]
pytest (>=2.5.0)
")

;; Beaker contains only optional dependencies.
(define test-requires.txt-beaker "\
[crypto]
pycryptopp>=0.5.12

[cryptography]
cryptography

[testsuite]
Mock
coverage
")

(define test-metadata "\
Classifier: Programming Language :: Python :: 3.7
Requires-Dist: baz ~= 3
Requires-Dist: bar != 2
Provides-Extra: test
Requires-Dist: pytest (>=2.5.0) ; extra == 'test'
")

(define test-metadata-with-extras "
Classifier: Programming Language :: Python :: 3.7
Requires-Python: >=2.7, !=3.0.*, !=3.1.*, !=3.2.*, !=3.3.*
Requires-Dist: wrapt (<2,>=1)
Requires-Dist: bar

Provides-Extra: dev
Requires-Dist: tox ; extra == 'dev'
Requires-Dist: bumpversion (<1) ; extra == 'dev'
")

;;; Provides-Extra can appear before Requires-Dist.
(define test-metadata-with-extras-jedi "\
Requires-Python: >=2.7, !=3.0.*, !=3.1.*, !=3.2.*, !=3.3.*
Provides-Extra: testing
Requires-Dist: parso (>=0.3.0)
Provides-Extra: testing
Requires-Dist: pytest (>=3.1.0); extra == 'testing'
")

\f
(test-begin "pypi")

(test-equal "guix-package->pypi-name, old URL style"
  "psutil"
  (guix-package->pypi-name
   (dummy-package "foo"
                  (source (dummy-origin
                           (uri
                            "https://pypi.org/packages/source/p/psutil/psutil-4.3.0.tar.gz"))))))

(test-equal "guix-package->pypi-name, new URL style"
  "certbot"
  (guix-package->pypi-name
   (dummy-package "foo"
                  (source (dummy-origin
                           (uri
                            "https://pypi.org/packages/a2/3b/4756e6a0ceb14e084042a2a65c615d68d25621c6fd446d0fc10d14c4ce7d/certbot-0.8.1.tar.gz"))))))

(test-equal "guix-package->pypi-name, several URLs"
  "cram"
  (guix-package->pypi-name
   (dummy-package "foo"
                  (source
                   (dummy-origin
                    (uri (list "https://bitheap.org/cram/cram-0.7.tar.gz"
                               (pypi-uri "cram" "0.7"))))))))

(test-equal "specification->requirement-name"
  '("Fizzy" "PickyThing" "SomethingWithMarker" "requests" "pip")
  (map specification->requirement-name test-specifications))

(test-equal "parse-requires.txt"
  (list '("foo" "bar") '("pytest"))
  (mock ((ice-9 ports) call-with-input-file
         call-with-input-string)
        (parse-requires.txt test-requires.txt)))

(test-equal "parse-requires.txt - Beaker"
  (list '() '("Mock" "coverage"))
  (mock ((ice-9 ports) call-with-input-file
         call-with-input-string)
        (parse-requires.txt test-requires.txt-beaker)))

(test-equal "parse-wheel-metadata, with extras"
  (list '("wrapt" "bar") '("tox" "bumpversion"))
  (mock ((ice-9 ports) call-with-input-file
         call-with-input-string)
        (parse-wheel-metadata test-metadata-with-extras)))

(test-equal "parse-wheel-metadata, with extras - Jedi"
  (list '("parso") '("pytest"))
  (mock ((ice-9 ports) call-with-input-file
         call-with-input-string)
        (parse-wheel-metadata test-metadata-with-extras-jedi)))

(test-assert "pypi->guix-package, no wheel"
  ;; Replace network resources with sample data.
    (mock ((guix import utils) url-fetch
           (lambda (url file-name)
             (match url
               ("https://example.com/foo-1.0.0.tar.gz"
                (begin
                  ;; Unusual requires.txt location should still be found.
                  (mkdir-p "foo-1.0.0/src/bizarre.egg-info")
                  (with-output-to-file "foo-1.0.0/src/bizarre.egg-info/requires.txt"
                    (lambda ()
                      (display test-requires.txt)))
                  (parameterize ((current-output-port (%make-void-port "rw+")))
                    (system* "tar" "czvf" file-name "foo-1.0.0/"))
                  (delete-file-recursively "foo-1.0.0")
                  (set! test-source-hash
                    (call-with-input-file file-name port-sha256))))
               ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
               (_ (error "Unexpected URL: " url)))))
          (mock ((guix http-client) http-fetch
                 (lambda (url . rest)
                   (match url
                     ("https://pypi.org/pypi/foo/json"
                      (values (open-input-string test-json)
                              (string-length test-json)))
                     ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
                     (_ (error "Unexpected URL: " url)))))
                (match (pypi->guix-package "foo")
                  (('package
                     ('name "python-foo")
                     ('version "1.0.0")
                     ('source ('origin
                                ('method 'url-fetch)
                                ('uri ('pypi-uri "foo" 'version))
                                ('sha256
                                 ('base32
                                  (? string? hash)))))
                     ('build-system 'python-build-system)
                     ('propagated-inputs
                      ('quasiquote
                       (("python-bar" ('unquote 'python-bar))
                        ("python-foo" ('unquote 'python-foo)))))
                     ('native-inputs
                      ('quasiquote
                       (("python-pytest" ('unquote 'python-pytest)))))
                     ('home-page "http://example.com")
                     ('synopsis "summary")
                     ('description "summary")
                     ('license 'license:lgpl2.0))
                   (string=? (bytevector->nix-base32-string
                              test-source-hash)
                             hash))
                  (x
                   (pk 'fail x #f))))))

(test-skip (if (which "zip") 0 1))
(test-assert "pypi->guix-package, wheels"
  ;; Replace network resources with sample data.
  (mock ((guix import utils) url-fetch
         (lambda (url file-name)
           (match url
             ("https://example.com/foo-1.0.0.tar.gz"
              (begin
                (mkdir-p "foo-1.0.0/foo.egg-info/")
                (with-output-to-file "foo-1.0.0/foo.egg-info/requires.txt"
                  (lambda ()
                    (display "wrong data to make sure we're testing wheels ")))
                (parameterize ((current-output-port (%make-void-port "rw+")))
                  (system* "tar" "czvf" file-name "foo-1.0.0/"))
                (delete-file-recursively "foo-1.0.0")
                (set! test-source-hash
                  (call-with-input-file file-name port-sha256))))
             ("https://example.com/foo-1.0.0-py2.py3-none-any.whl"
              (begin
                (mkdir "foo-1.0.0.dist-info")
                (with-output-to-file "foo-1.0.0.dist-info/METADATA"
                  (lambda ()
                    (display test-metadata)))
                (let ((zip-file (string-append file-name ".zip")))
                  ;; zip always adds a "zip" extension to the file it creates,
                  ;; so we need to rename it.
                  (system* "zip" "-q" zip-file "foo-1.0.0.dist-info/METADATA")
                  (rename-file zip-file file-name))
                (delete-file-recursively "foo-1.0.0.dist-info")))
             (_ (error "Unexpected URL: " url)))))
        (mock ((guix http-client) http-fetch
               (lambda (url . rest)
                 (match url
                   ("https://pypi.org/pypi/foo/json"
                    (values (open-input-string test-json)
                            (string-length test-json)))
                   ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
                   (_ (error "Unexpected URL: " url)))))
              ;; Not clearing the memoization cache here would mean returning the value
              ;; computed in the previous test.
              (invalidate-memoization! pypi->guix-package)
              (match (pypi->guix-package "foo")
                (('package
                   ('name "python-foo")
                   ('version "1.0.0")
                   ('source ('origin
                              ('method 'url-fetch)
                              ('uri ('pypi-uri "foo" 'version))
                              ('sha256
                               ('base32
                                (? string? hash)))))
                   ('build-system 'python-build-system)
                   ('propagated-inputs
                    ('quasiquote
                     (("python-bar" ('unquote 'python-bar))
                      ("python-baz" ('unquote 'python-baz)))))
                   ('native-inputs
                    ('quasiquote
                     (("python-pytest" ('unquote 'python-pytest)))))
                   ('home-page "http://example.com")
                   ('synopsis "summary")
                   ('description "summary")
                   ('license 'license:lgpl2.0))
                 (string=? (bytevector->nix-base32-string
                            test-source-hash)
                           hash))
                (x
                 (pk 'fail x #f))))))

(test-assert "pypi->guix-package, no usable requirement file."
  ;; Replace network resources with sample data.
  (mock ((guix import utils) url-fetch
         (lambda (url file-name)
           (match url
             ("https://example.com/foo-1.0.0.tar.gz"
              (mkdir-p "foo-1.0.0/foo.egg-info/")
              (parameterize ((current-output-port (%make-void-port "rw+")))
                (system* "tar" "czvf" file-name "foo-1.0.0/"))
              (delete-file-recursively "foo-1.0.0")
              (set! test-source-hash
                (call-with-input-file file-name port-sha256)))
             ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
             (_ (error "Unexpected URL: " url)))))
        (mock ((guix http-client) http-fetch
               (lambda (url . rest)
                 (match url
                   ("https://pypi.org/pypi/foo/json"
                    (values (open-input-string test-json)
                            (string-length test-json)))
                   ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
                   (_ (error "Unexpected URL: " url)))))
              ;; Not clearing the memoization cache here would mean returning the value
              ;; computed in the previous test.
              (invalidate-memoization! pypi->guix-package)
              (match (pypi->guix-package "foo")
                (('package
                   ('name "python-foo")
                   ('version "1.0.0")
                   ('source ('origin
                              ('method 'url-fetch)
                              ('uri ('pypi-uri "foo" 'version))
                              ('sha256
                               ('base32
                                (? string? hash)))))
                   ('build-system 'python-build-system)
                   ('home-page "http://example.com")
                   ('synopsis "summary")
                   ('description "summary")
                   ('license 'license:lgpl2.0))
                 (string=? (bytevector->nix-base32-string
                            test-source-hash)
                           hash))
                (x
                 (pk 'fail x #f))))))

(test-end "pypi")
Commit	Line	Data
1b3e9685 DT	1	;;; GNU Guix --- Functional package management for GNU
1b3e9685 DT	2	;;; Copyright © 2014 David Thompson <davet@gnu.org>
506abddb	3	;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
d514276b	4	;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
1b3e9685 DT	5	;;;
	6	;;; This file is part of GNU Guix.
	7	;;;
	8	;;; GNU Guix is free software; you can redistribute it and/or modify it
	9	;;; under the terms of the GNU General Public License as published by
	10	;;; the Free Software Foundation; either version 3 of the License, or (at
	11	;;; your option) any later version.
	12	;;;
	13	;;; GNU Guix is distributed in the hope that it will be useful, but
	14	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	15	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	;;; GNU General Public License for more details.
	17	;;;
	18	;;; You should have received a copy of the GNU General Public License
	19	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	20
	21	(define-module (test-pypi)
	22	#:use-module (guix import pypi)
	23	#:use-module (guix base32)
c799ad72	24	#:use-module (guix memoization)
ca719424	25	#:use-module (gcrypt hash)
694b317c	26	#:use-module (guix tests)
4eaac4b7	27	#:use-module (guix build-system python)
01589acc	28	#:use-module ((guix build utils) #:select (delete-file-recursively which mkdir-p))
1b3e9685 DT	29	#:use-module (srfi srfi-64)
	30	#:use-module (ice-9 match))
	31
1b3e9685 DT	32	(define test-json
	33	"{
	34	\"info\": {
	35	\"version\": \"1.0.0\",
	36	\"name\": \"foo\",
	37	\"license\": \"GNU LGPL\",
	38	\"summary\": \"summary\",
	39	\"home_page\": \"http://example.com\",
7657e61d LC	40	\"classifiers\": [],
7657e61d LC	41	\"download_url\": \"\"
1b3e9685	42	},
7657e61d	43	\"urls\": [],
1b3e9685 DT	44	\"releases\": {
	45	\"1.0.0\": [
	46	{
	47	\"url\": \"https://example.com/foo-1.0.0.egg\",
5dfe02c6	48	\"packagetype\": \"bdist_egg\"
1b3e9685 DT	49	}, {
1b3e9685 DT	50	\"url\": \"https://example.com/foo-1.0.0.tar.gz\",
5dfe02c6	51	\"packagetype\": \"sdist\"
266785d2 CR	52	}, {
266785d2 CR	53	\"url\": \"https://example.com/foo-1.0.0-py2.py3-none-any.whl\",
5dfe02c6	54	\"packagetype\": \"bdist_wheel\"
1b3e9685 DT	55	}
	56	]
	57	}
	58	}")
	59
ff986890 CR	60	(define test-source-hash
	61	"")
	62
803fb336 MC	63	(define test-specifications
	64	'("Fizzy [foo, bar]"
	65	"PickyThing<1.6,>1.9,!=1.9.6,<2.0a0,==2.4c1"
	66	"SomethingWithMarker[foo]>1.0;python_version<\"2.7\""
	67	"requests [security,tests] >= 2.8.1, == 2.8.* ; python_version < \"2.7\""
	68	"pip @ https://github.com/pypa/pip/archive/1.3.1.zip#\
	69	sha1=da9234ee9982d4bbb3c72346a6de940a148ea686"))
	70
01589acc MC	71	(define test-requires.txt "\
01589acc MC	72	# A comment
ff986890	73	# A comment after a space
c4797121 MC	74	foo ~= 3
	75	bar != 2
	76
	77	[test]
	78	pytest (>=2.5.0)
	79	")
	80
d514276b MC	81	;; Beaker contains only optional dependencies.
	82	(define test-requires.txt-beaker "\
	83	[crypto]
	84	pycryptopp>=0.5.12
	85
	86	[cryptography]
	87	cryptography
	88
	89	[testsuite]
	90	Mock
	91	coverage
	92	")
	93
f0190a5d MC	94	(define test-metadata "\
	95	Classifier: Programming Language :: Python :: 3.7
	96	Requires-Dist: baz ~= 3
	97	Requires-Dist: bar != 2
	98	Provides-Extra: test
d514276b	99	Requires-Dist: pytest (>=2.5.0) ; extra == 'test'
f0190a5d MC	100	")
	101
	102	(define test-metadata-with-extras "
	103	Classifier: Programming Language :: Python :: 3.7
	104	Requires-Python: >=2.7, !=3.0., !=3.1., !=3.2., !=3.3.
	105	Requires-Dist: wrapt (<2,>=1)
	106	Requires-Dist: bar
	107
	108	Provides-Extra: dev
	109	Requires-Dist: tox ; extra == 'dev'
	110	Requires-Dist: bumpversion (<1) ; extra == 'dev'
	111	")
	112
	113	;;; Provides-Extra can appear before Requires-Dist.
	114	(define test-metadata-with-extras-jedi "\
	115	Requires-Python: >=2.7, !=3.0., !=3.1., !=3.2., !=3.3.
	116	Provides-Extra: testing
	117	Requires-Dist: parso (>=0.3.0)
	118	Provides-Extra: testing
	119	Requires-Dist: pytest (>=3.1.0); extra == 'testing'
	120	")
266785d2	121
5dfe02c6	122	\f
1b3e9685 DT	123	(test-begin "pypi")
1b3e9685 DT	124
8173ceee LC	125	(test-equal "guix-package->pypi-name, old URL style"
	126	"psutil"
	127	(guix-package->pypi-name
	128	(dummy-package "foo"
	129	(source (dummy-origin
	130	(uri
7277d06d	131	"https://pypi.org/packages/source/p/psutil/psutil-4.3.0.tar.gz"))))))
8173ceee LC	132
	133	(test-equal "guix-package->pypi-name, new URL style"
	134	"certbot"
	135	(guix-package->pypi-name
	136	(dummy-package "foo"
	137	(source (dummy-origin
	138	(uri
8440db45	139	"https://pypi.org/packages/a2/3b/4756e6a0ceb14e084042a2a65c615d68d25621c6fd446d0fc10d14c4ce7d/certbot-0.8.1.tar.gz"))))))
8173ceee	140
4eaac4b7 LC	141	(test-equal "guix-package->pypi-name, several URLs"
	142	"cram"
	143	(guix-package->pypi-name
	144	(dummy-package "foo"
	145	(source
	146	(dummy-origin
	147	(uri (list "https://bitheap.org/cram/cram-0.7.tar.gz"
	148	(pypi-uri "cram" "0.7"))))))))
	149
803fb336 MC	150	(test-equal "specification->requirement-name"
	151	'("Fizzy" "PickyThing" "SomethingWithMarker" "requests" "pip")
	152	(map specification->requirement-name test-specifications))
	153
d514276b MC	154	(test-equal "parse-requires.txt"
d514276b MC	155	(list '("foo" "bar") '("pytest"))
c4797121 MC	156	(mock ((ice-9 ports) call-with-input-file
c4797121 MC	157	call-with-input-string)
d514276b MC	158	(parse-requires.txt test-requires.txt)))
	159
	160	(test-equal "parse-requires.txt - Beaker"
	161	(list '() '("Mock" "coverage"))
	162	(mock ((ice-9 ports) call-with-input-file
	163	call-with-input-string)
	164	(parse-requires.txt test-requires.txt-beaker)))
c4797121	165
f0190a5d	166	(test-equal "parse-wheel-metadata, with extras"
d514276b	167	(list '("wrapt" "bar") '("tox" "bumpversion"))
f0190a5d MC	168	(mock ((ice-9 ports) call-with-input-file
	169	call-with-input-string)
	170	(parse-wheel-metadata test-metadata-with-extras)))
	171
	172	(test-equal "parse-wheel-metadata, with extras - Jedi"
d514276b	173	(list '("parso") '("pytest"))
f0190a5d MC	174	(mock ((ice-9 ports) call-with-input-file
	175	call-with-input-string)
	176	(parse-wheel-metadata test-metadata-with-extras-jedi)))
	177
d514276b	178	(test-assert "pypi->guix-package, no wheel"
1b3e9685	179	;; Replace network resources with sample data.
506abddb RW	180	(mock ((guix import utils) url-fetch
	181	(lambda (url file-name)
	182	(match url
	183	("https://example.com/foo-1.0.0.tar.gz"
	184	(begin
c799ad72 MC	185	;; Unusual requires.txt location should still be found.
	186	(mkdir-p "foo-1.0.0/src/bizarre.egg-info")
	187	(with-output-to-file "foo-1.0.0/src/bizarre.egg-info/requires.txt"
506abddb	188	(lambda ()
01589acc	189	(display test-requires.txt)))
a853aceb MC	190	(parameterize ((current-output-port (%make-void-port "rw+")))
a853aceb MC	191	(system* "tar" "czvf" file-name "foo-1.0.0/"))
506abddb RW	192	(delete-file-recursively "foo-1.0.0")
	193	(set! test-source-hash
	194	(call-with-input-file file-name port-sha256))))
	195	("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
	196	(_ (error "Unexpected URL: " url)))))
	197	(mock ((guix http-client) http-fetch
ce8963c5	198	(lambda (url . rest)
506abddb	199	(match url
8440db45	200	("https://pypi.org/pypi/foo/json"
506abddb RW	201	(values (open-input-string test-json)
	202	(string-length test-json)))
	203	("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
	204	(_ (error "Unexpected URL: " url)))))
	205	(match (pypi->guix-package "foo")
	206	(('package
	207	('name "python-foo")
	208	('version "1.0.0")
	209	('source ('origin
	210	('method 'url-fetch)
b3d8153d	211	('uri ('pypi-uri "foo" 'version))
506abddb RW	212	('sha256
	213	('base32
	214	(? string? hash)))))
	215	('build-system 'python-build-system)
	216	('propagated-inputs
	217	('quasiquote
	218	(("python-bar" ('unquote 'python-bar))
d514276b MC	219	("python-foo" ('unquote 'python-foo)))))
	220	('native-inputs
	221	('quasiquote
	222	(("python-pytest" ('unquote 'python-pytest)))))
506abddb RW	223	('home-page "http://example.com")
	224	('synopsis "summary")
	225	('description "summary")
	226	('license 'license:lgpl2.0))
	227	(string=? (bytevector->nix-base32-string
	228	test-source-hash)
	229	hash))
	230	(x
	231	(pk 'fail x #f))))))
266785d2 CR	232
	233	(test-skip (if (which "zip") 0 1))
	234	(test-assert "pypi->guix-package, wheels"
	235	;; Replace network resources with sample data.
	236	(mock ((guix import utils) url-fetch
	237	(lambda (url file-name)
	238	(match url
266785d2	239	("https://example.com/foo-1.0.0.tar.gz"
01589acc MC	240	(begin
	241	(mkdir-p "foo-1.0.0/foo.egg-info/")
	242	(with-output-to-file "foo-1.0.0/foo.egg-info/requires.txt"
d514276b MC	243	(lambda ()
d514276b MC	244	(display "wrong data to make sure we're testing wheels ")))
a853aceb MC	245	(parameterize ((current-output-port (%make-void-port "rw+")))
a853aceb MC	246	(system* "tar" "czvf" file-name "foo-1.0.0/"))
d514276b MC	247	(delete-file-recursively "foo-1.0.0")
	248	(set! test-source-hash
	249	(call-with-input-file file-name port-sha256))))
266785d2	250	("https://example.com/foo-1.0.0-py2.py3-none-any.whl"
d514276b MC	251	(begin
	252	(mkdir "foo-1.0.0.dist-info")
	253	(with-output-to-file "foo-1.0.0.dist-info/METADATA"
	254	(lambda ()
	255	(display test-metadata)))
	256	(let ((zip-file (string-append file-name ".zip")))
	257	;; zip always adds a "zip" extension to the file it creates,
	258	;; so we need to rename it.
	259	(system* "zip" "-q" zip-file "foo-1.0.0.dist-info/METADATA")
	260	(rename-file zip-file file-name))
	261	(delete-file-recursively "foo-1.0.0.dist-info")))
ff986890	262	(_ (error "Unexpected URL: " url)))))
239f4632	263	(mock ((guix http-client) http-fetch
ce8963c5	264	(lambda (url . rest)
239f4632	265	(match url
8440db45	266	("https://pypi.org/pypi/foo/json"
239f4632 RW	267	(values (open-input-string test-json)
	268	(string-length test-json)))
	269	("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
	270	(_ (error "Unexpected URL: " url)))))
f0190a5d MC	271	;; Not clearing the memoization cache here would mean returning the value
	272	;; computed in the previous test.
	273	(invalidate-memoization! pypi->guix-package)
239f4632 RW	274	(match (pypi->guix-package "foo")
	275	(('package
	276	('name "python-foo")
	277	('version "1.0.0")
	278	('source ('origin
	279	('method 'url-fetch)
b3d8153d	280	('uri ('pypi-uri "foo" 'version))
239f4632 RW	281	('sha256
	282	('base32
	283	(? string? hash)))))
	284	('build-system 'python-build-system)
	285	('propagated-inputs
	286	('quasiquote
	287	(("python-bar" ('unquote 'python-bar))
b45dbfc9	288	("python-baz" ('unquote 'python-baz)))))
d514276b MC	289	('native-inputs
	290	('quasiquote
	291	(("python-pytest" ('unquote 'python-pytest)))))
239f4632 RW	292	('home-page "http://example.com")
	293	('synopsis "summary")
	294	('description "summary")
	295	('license 'license:lgpl2.0))
	296	(string=? (bytevector->nix-base32-string
	297	test-source-hash)
	298	hash))
	299	(x
	300	(pk 'fail x #f))))))
1b3e9685	301
c799ad72 MC	302	(test-assert "pypi->guix-package, no usable requirement file."
	303	;; Replace network resources with sample data.
	304	(mock ((guix import utils) url-fetch
	305	(lambda (url file-name)
	306	(match url
	307	("https://example.com/foo-1.0.0.tar.gz"
	308	(mkdir-p "foo-1.0.0/foo.egg-info/")
	309	(parameterize ((current-output-port (%make-void-port "rw+")))
	310	(system* "tar" "czvf" file-name "foo-1.0.0/"))
	311	(delete-file-recursively "foo-1.0.0")
	312	(set! test-source-hash
	313	(call-with-input-file file-name port-sha256)))
	314	("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
	315	(_ (error "Unexpected URL: " url)))))
	316	(mock ((guix http-client) http-fetch
	317	(lambda (url . rest)
	318	(match url
	319	("https://pypi.org/pypi/foo/json"
	320	(values (open-input-string test-json)
	321	(string-length test-json)))
	322	("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
	323	(_ (error "Unexpected URL: " url)))))
	324	;; Not clearing the memoization cache here would mean returning the value
	325	;; computed in the previous test.
	326	(invalidate-memoization! pypi->guix-package)
	327	(match (pypi->guix-package "foo")
	328	(('package
	329	('name "python-foo")
	330	('version "1.0.0")
	331	('source ('origin
	332	('method 'url-fetch)
	333	('uri ('pypi-uri "foo" 'version))
	334	('sha256
	335	('base32
	336	(? string? hash)))))
	337	('build-system 'python-build-system)
	338	('home-page "http://example.com")
	339	('synopsis "summary")
	340	('description "summary")
	341	('license 'license:lgpl2.0))
	342	(string=? (bytevector->nix-base32-string
	343	test-source-hash)
	344	hash))
	345	(x
	346	(pk 'fail x #f))))))
	347
1b3e9685	348	(test-end "pypi")