luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-16 16:01:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make index-redirect? default to false, add dir to dir/ redirect

Browse source 
- When canonicalize-uris? is true, redirect from dir to dir/ if index
  file exists within the directory
- Add more tests
This commit is contained in:
Juho Teperi 2025-03-27 14:47:14 +02:00
parent 12afe1dcaa
commit e50bfa835c
5 changed files with 56 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
modules/reitit-ring/src/reitit/ring.cljc
View file

@ -231,7 +231,7 @@
:or {parameter (keyword "")
root "public"
index-files ["index.html"]
index-redirect? true
index-redirect? false
canonicalize-uris? true
paths (constantly nil)}}]
(let [options {:root root
@ -259,8 +259,14 @@
(loop [[file & files] index-files]
(if file
(if-let [resp (response (join-paths path file))]
(if index-redirect?
(cond
index-redirect?
(response/redirect (join-paths uri file))
(not (str/ends-with? uri "/"))
(response/redirect (str uri "/"))
:else
resp)
(recur files)))))))
handler (if path
@ -287,8 +293,8 @@
| :path | path to mount the handler to. Required when mounted outside of a router, does not work inside a router.
| :loader | optional class loader to resolve the resources
| :index-files | optional vector of index-files to look in a resource directory, defaults to `[\"index.html\"]`
| :index-redirect? | optional boolean: if true (default), redirect to index file, if false serve it directly
| :canonicalize-uris? | optional boolean: if true (default), try to serve index files for non directory paths (paths that end with slash)
| :index-redirect? | optional boolean: if true, redirect to index file, if false serve it directly
| :canonicalize-uris? | optional boolean: if true (default), if path points to a folder with an index file, add a trailing slash (redirect) if it is missing.
| :not-found-handler | optional handler function to use if the requested resource is missing (404 Not Found)"
([]
(create-resource-handler nil))
@ -306,8 +312,8 @@
| :path | path to mount the handler to. Required when mounted outside of a router, does not work inside a router.
| :loader | optional class loader to resolve the resources
| :index-files | optional vector of index-files to look in a resource directory, defaults to `[\"index.html\"]`
| :index-redirect? | optional boolean: if true (default), redirect to index file, if false serve it directly
| :canonicalize-uris? | optional boolean: if true (default), try to serve index files for non directory paths (paths that end with slash)
| :index-redirect? | optional boolean: if true, redirect to index file, if false serve it directly
| :canonicalize-uris? | optional boolean: if true (default), if path points to a folder with an index file, add a trailing slash (redirect) if it is missing.
| :not-found-handler | optional handler function to use if the requested resource is missing (404 Not Found)"
([]
(create-file-handler nil))

16
test/clj/reitit/http_test.clj
View file

@ -386,9 +386,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app (request "/not-found"))]
@ -424,9 +424,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app (request "/not-found"))]
@ -463,9 +463,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app (request "/not-found"))]
@ -502,9 +502,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app (request "/not-found"))]

2
test/cljc/reitit/openapi_test.clj
View file

@ -337,7 +337,7 @@
{:path "/"
:url "/openapi.json"
:config {:jsonEditor true}})]
(is (= 302 (:status (app {:request-method :get, :uri "/"}))))
(is (= 200 (:status (app {:request-method :get, :uri "/"}))))
(is (= 200 (:status (app {:request-method :get, :uri "/index.html"}))))
(is (= {:jsonEditor true, :url "/openapi.json"}
(->> {:request-method :get, :uri "/config.json"}

47
test/cljc/reitit/ring_test.cljc
View file

@ -526,9 +526,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app (request "/not-found"))]
@ -567,9 +567,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app (request "/not-found"))]
@ -609,9 +609,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app (request "/not-found"))]
@ -652,9 +652,9 @@
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
(is (= (redirect "/docs/") response)))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response))))
(is (= 200 (:status response)))))
(testing "not found"
(let [response (app {:uri "/not-found" :request-method :get})]
@ -688,13 +688,13 @@
(testing "without index-redirect"
(let [app (ring/ring-handler
(ring/router
["/*" (create {:index-redirect? false})])
["/*" (create {:canonicalize-uris? false
:index-redirect? false})])
(ring/create-default-handler))]
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= 200 (:status response)))
(is (= "<h1>hello</h1>\n" (slurp (:body response)))))
(is (= 404 (:status response))))
(let [response (app (request "/docs/"))]
(is (= 200 (:status response)))
(is (= "<h1>hello</h1>\n" (slurp (:body response))))))))
@ -705,6 +705,24 @@
["/*" (create {:canonicalize-uris? true})])
(ring/create-default-handler))]
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/") response)))
(testing "not found if dir doesn't exist"
(let [response (app (request "/foobar"))]
(is (= 404 (:status response)))))
(let [response (app (request "/docs/"))]
(is (= 200 (:status response))))
(let [response (app (request "/docs/index.html"))]
(is (= 200 (:status response)))))))
(testing "with canonicalize-uris and index-redirect"
(let [app (ring/ring-handler
(ring/router
["/*" (create {:canonicalize-uris? true
:index-redirect? true})])
(ring/create-default-handler))]
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response)))
@ -714,14 +732,17 @@
(testing "without canonicalize-uris"
(let [app (ring/ring-handler
(ring/router
["/*" (create {:canonicalize-uris? false})])
["/*" (create {:canonicalize-uris? false
:index-redirect? true})])
(ring/create-default-handler))]
(testing "index-files"
(let [response (app (request "/docs"))]
(is (= 404 (:status response))))
(let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response)))))))))))
(is (= (redirect "/docs/index.html") response)))
(let [response (app (request "/foobar"))]
(is (= 404 (:status response))))))))))))
#?(:clj
(deftest file-resource-handler-not-found-test

2
test/cljc/reitit/swagger_test.clj
View file

@ -392,7 +392,7 @@
(let [app (swagger-ui/create-swagger-ui-handler
{:path "/"
:config {:jsonEditor true}})]
(is (= 302 (:status (app {:request-method :get, :uri "/"}))))
(is (= 200 (:status (app {:request-method :get, :uri "/"}))))
(is (= 200 (:status (app {:request-method :get, :uri "/index.html"}))))
(is (= {:jsonEditor true, :url "/swagger.json"}
(->> {:request-method :get, :uri "/config.json"}