This commit is contained in:
Tommi Reiman 2024-06-29 16:20:44 +03:00
parent 411bf39c7d
commit d136975154

View file

@ -250,9 +250,9 @@
(is result) (is result)
(is (= "ok" (result)))) (is (= "ok" (result))))
(testing "var handler gets expanded" (testing "var handler gets expanded"
(let [router (r/router ["/ping" #'var-handler]) (let [router (r/router ["/ping" #'var-handler])
{:keys [result]} (r/match-by-path router "/ping")] {:keys [result]} (r/match-by-path router "/ping")]
(is (= #'var-handler result)))))) (is (= #'var-handler result))))))
(testing "custom router" (testing "custom router"
(let [router (r/router ["/ping"] {:router (fn [_ _] (let [router (r/router ["/ping"] {:router (fn [_ _]
@ -423,7 +423,7 @@
(r/expand [_ _] {:name n})) (r/expand [_ _] {:name n}))
(deftest default-expand-test (deftest default-expand-test
(let [router (r/router ["/endpoint" (->Named :kikka)])] (let [router (r/router ["/endpoint" (Named. :kikka)])]
(is (= [["/endpoint" {:name :kikka}]] (is (= [["/endpoint" {:name :kikka}]]
(r/routes router))))) (r/routes router)))))