From 78cc54d3a88a12a0495aab885813f246cbdc50c3 Mon Sep 17 00:00:00 2001
From: Ben Sless <ben.sless@gmail.com>
Date: Mon, 26 Aug 2024 17:07:51 +0300
Subject: [PATCH] Add generative test for new keywordize

---
 test/clj/reitit/walk_test.clj | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 test/clj/reitit/walk_test.clj

diff --git a/test/clj/reitit/walk_test.clj b/test/clj/reitit/walk_test.clj
new file mode 100644
index 00000000..2b5c42fd
--- /dev/null
+++ b/test/clj/reitit/walk_test.clj
@@ -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))))