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

feat: reitit.core/Expand for Vars

Browse source
This commit is contained in:
Joel Kaasinen 2024-03-15 09:21:51 +02:00
parent 659e96e780
commit 5d30a73bad
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
modules/reitit-core/src/reitit/core.cljc
View file

@ -28,6 +28,10 @@
:cljs function) :cljs function)
(expand [this _] {:handler this}) (expand [this _] {:handler this})
#?(:clj clojure.lang.Var
:cljs cljs.core.Var)
(expand [this _] {:handler this})
nil nil
(expand [_ _])) (expand [_ _]))

9
test/cljc/reitit/core_test.cljc
View file

@ -6,6 +6,9 @@
(:import (clojure.lang ExceptionInfo) (:import (clojure.lang ExceptionInfo)
(reitit.core Router)))) (reitit.core Router))))
(defn- var-handler [& _]
"var-handler")
(deftest reitit-test (deftest reitit-test
(testing "routers handling wildcard paths" (testing "routers handling wildcard paths"
@ -245,7 +248,11 @@
(let [router (r/router ["/ping" (constantly "ok")]) (let [router (r/router ["/ping" (constantly "ok")])
{:keys [result]} (r/match-by-path router "/ping")] {:keys [result]} (r/match-by-path router "/ping")]
(is result) (is result)
(is (= "ok" (result)))))) (is (= "ok" (result))))
(testing "var handler gets expanded"
(let [router (r/router ["/ping" #'var-handler])
{:keys [result]} (r/match-by-path router "/ping")]
(is (= #'var-handler result))))))
(testing "custom router" (testing "custom router"
(let [router (r/router ["/ping"] {:router (fn [_ _] (let [router (r/router ["/ping"] {:router (fn [_ _]