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

Add some tests

Browse source
This commit is contained in:
Juho Teperi 2023-03-23 15:36:48 +02:00
parent dd724f0d0e
commit e3e93eaffb
2 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
modules/reitit-frontend/src/reitit/frontend/easy.cljs
View file

@ -104,11 +104,13 @@
(rfh/replace-state @history name path-params query-params)))
(defn update-query
;; TODO: Sync the docstring with other namespaces
"Takes the current location and updates the query params
with given fn and arguments."
[f & args]
;; TODO: rfh version?
(let [current-path (rfh/-get-path @history)
new-path (apply rf/update-path-query-params current-path f args)]
;; TODO: replaceState version
(.pushState js/window.history nil "" new-path)
(rfh/-on-navigate @history new-path)))

17
test/cljs/reitit/frontend/core_test.cljs
View file

@ -227,3 +227,20 @@
:token_type "bearer"
:expires_in 3600}}})
(m (rf/match-by-path router "/5?mode=foo#access_token=foo&refresh_token=bar&provider_token=baz&token_type=bearer&expires_in=3600"))))))))
(deftest update-path-query-params-test
(is (= "foo?bar=1"
(rf/update-path-query-params "foo" #(assoc % :bar 1))))
(is (= "foo?asd=1&bar=1"
(rf/update-path-query-params "foo?asd=1" #(assoc % :bar 1))))
(is (= "foo?bar=1"
(rf/update-path-query-params "foo?asd=1&bar=1" #(dissoc % :asd))))
(is (= "foo"
(rf/update-path-query-params "foo?asd=1" #(dissoc % :asd))))
(testing "Need to coerce current values manually"
(is (= "foo?foo=2"
(rf/update-path-query-params "foo?foo=1" update :foo #(inc (js/parseInt %)))))))