diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-03-22 12:51:23 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-03-22 12:51:23 +0100 |
| commit | c1cd155aa8afa17e60491c85e8f226f99257d395 (patch) | |
| tree | 77bf3676bfe23ec2ce86f219dcd69b4f04483983 /tests/publish.scm | |
| parent | 247384d069e2dee6bf1c7d7876490746673c3a16 (diff) | |
| download | patches-c1cd155aa8afa17e60491c85e8f226f99257d395.tar patches-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.scm | 8 |
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") |