ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

publish: Add test for non-GET queries.

Browse source 
* tests/publish.scm ("non-GET query"): New test.
This commit is contained in:
Ludovic Courtès 2018-03-22 12:51:23 +01:00
parent 247384d069
commit c1cd155aa8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/publish.scm
View file

@ -483,4 +483,12 @@ (define %gzip-magic-bytes
(let ((uri (publish-uri "/log/does-not-exist")))
(response-code (http-get uri))))
(test-equal "non-GET query"
'(200 404)
(let ((path (string-append "/" (store-path-hash-part %item)
".narinfo")))
(map response-code
(list (http-get (publish-uri path))
(http-post (publish-uri path))))))
(test-end "publish")