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

Add reitit.frontend test case

Browse source
This commit is contained in:
Juho Teperi 2025-01-21 16:41:02 +02:00
parent 1819fa5d75
commit 5829e1c656
2 changed files with 35 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -78,12 +78,9 @@
;; on the coercion?
;; NOTE: Re-creates coercer on every call, could this be pre-compiled somewhere
;; or memoized? Does it matter much?
(str "?" (let [schema (-> match :data :parameters :query
;; FIXME: Why?
;; Due the Malli schema merge? Needs
;; coercion/-compile-model call first.
first)
coercion (-> match :data :coercion)
(str "?" (let [coercion (-> match :data :coercion)
schema (when coercion
(coercion/-compile-model coercion (-> match :data :parameters :query) nil))
coercer (when (and schema coercion)
(coercion/-query-string-coercer coercion schema))
query-params (or (when coercer

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

@ -1,13 +1,14 @@
(ns reitit.frontend.core-test
(:require [clojure.test :refer [deftest testing is are]]
(:require [clojure.string :as str]
[clojure.test :refer [are deftest is testing]]
[reitit.coercion :as rc]
[reitit.coercion.malli :as rcm]
[reitit.coercion.schema :as rcs]
[reitit.core :as r]
[reitit.frontend :as rf]
[reitit.coercion :as rc]
[schema.core :as s]
[reitit.coercion.schema :as rcs]
[reitit.coercion.malli :as rcm]
[reitit.frontend.test-utils :refer [capture-console]]
[reitit.impl :as impl]))
[reitit.impl :as impl]
[schema.core :as s]))
(deftest query-params-test
(is (= {:foo "1"}
@ -297,3 +298,28 @@
(testing "Fragment encoding"
(is (= "foo#foo+bar+%25"
(rf/match->path {:path "foo"} nil "foo bar %")))))
(defn instant->string
[x]
(str "x" (.toISOString x)))
(defn string->instant
[x]
(if (string? x)
(js/Date. (subs x 1 (count x)))
x))
(deftest match->path-coercion-test
(testing "default Date toString"
(is (str/starts-with?
(rf/match->path {:path "foo"} {:date (js/Date. 2024 0 1 12 13 0)})
"foo?date=Mon+Jan+01+2024+12")))
(is (= "foo?date=x2024-01-01T10%3A13%3A00.000Z"
(rf/match->path {:data {:coercion rcm/coercion
:parameters {:query [[:map
[:date {:decode/string string->instant
:encode/string instant->string}
:any]]]}}
:path "foo"}
{:date (js/Date. 2024 0 1 12 13 0)}))))