diff options
| -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") |