mirror of
https://github.com/metosin/reitit.git
synced 2025-12-18 08:51:12 +00:00
Add generative test for new keywordize
This commit is contained in:
parent
4eab67a8db
commit
78cc54d3a8
1 changed files with 13 additions and 0 deletions
13
test/clj/reitit/walk_test.clj
Normal file
13
test/clj/reitit/walk_test.clj
Normal file
|
|
@ -0,0 +1,13 @@
|
||||||
|
(ns reitit.walk-test
|
||||||
|
(:require
|
||||||
|
[clojure.test.check.clojure-test :refer [defspec]]
|
||||||
|
[clojure.test.check.properties :as prop]
|
||||||
|
[clojure.test.check.generators :as gen]
|
||||||
|
[clojure.walk :as walk]
|
||||||
|
[reitit.walk :as sut]))
|
||||||
|
|
||||||
|
(defspec keywordize=walk-keywordize
|
||||||
|
10000
|
||||||
|
(prop/for-all [v gen/any-equatable]
|
||||||
|
(= (sut/keywordize-keys v)
|
||||||
|
(walk/keywordize-keys v))))
|
||||||
Loading…
Reference in a new issue