nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: Mock up http-fetch in import test. 

This is a follow-up to commit 63773200d7.

* tests/pypi.scm ("pypi->guix-package, wheels"): Add mock definition of
"http-fetch".
This commit is contained in:
Ricardo Wurmus 2016-12-18 10:53:27 +01:00
parent 36a318adc7
commit 239f46325d
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 34 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/pypi.scm
View File

@ -148,10 +148,6 @@ baz > 13.37")
(mock ((guix import utils) url-fetch (mock ((guix import utils) url-fetch
(lambda (url file-name) (lambda (url file-name)
(match url (match url
("https://pypi.python.org/pypi/foo/json"
(with-output-to-file file-name
(lambda ()
(display test-json))))
("https://example.com/foo-1.0.0.tar.gz" ("https://example.com/foo-1.0.0.tar.gz"
(begin (begin
(mkdir "foo-1.0.0") (mkdir "foo-1.0.0")
@ -175,6 +171,14 @@ baz > 13.37")
(rename-file zip-file file-name)) (rename-file zip-file file-name))
(delete-file-recursively "foo-1.0.0.dist-info"))) (delete-file-recursively "foo-1.0.0.dist-info")))
(_ (error "Unexpected URL: " url))))) (_ (error "Unexpected URL: " url)))))
(mock ((guix http-client) http-fetch
(lambda (url)
(match url
("https://pypi.python.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") (match (pypi->guix-package "foo")
(('package (('package
('name "python-foo") ('name "python-foo")
@ -200,6 +204,6 @@ baz > 13.37")
test-source-hash) test-source-hash)
hash)) hash))
(x (x
(pk 'fail x #f))))) (pk 'fail x #f))))))
(test-end "pypi") (test-end "pypi")