aboutsummaryrefslogtreecommitdiff
path: root/tests/publish.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-03-22 12:51:23 +0100
committerLudovic Courtès <ludo@gnu.org>2018-03-22 12:51:23 +0100
commitc1cd155aa8afa17e60491c85e8f226f99257d395 (patch)
tree77bf3676bfe23ec2ce86f219dcd69b4f04483983 /tests/publish.scm
parent247384d069e2dee6bf1c7d7876490746673c3a16 (diff)
downloadguix-c1cd155aa8afa17e60491c85e8f226f99257d395.tar
guix-c1cd155aa8afa17e60491c85e8f226f99257d395.tar.gz
publish: Add test for non-GET queries.
* tests/publish.scm ("non-GET query"): New test.
Diffstat (limited to 'tests/publish.scm')
-rw-r--r--tests/publish.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/publish.scm b/tests/publish.scm
index 8c88a8c93d..a4a52a4efe 100644
--- a/tests/publish.scm
+++ b/tests/publish.scm
@@ -483,4 +483,12 @@ FileSize: ~a~%"
(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")