Add some postwalk experiments

src/main/cljc/dda/k8s_keycloak/core.cljc

@@ -4,7 +4,8 @@
    [clojure.spec.alpha :as s]
    #?(:clj [orchestra.core :refer [defn-spec]]
       :cljs [orchestra.core :refer-macros [defn-spec]])
-   [dda.k8s-keycloak.yaml :as yaml]))
+   [dda.k8s-keycloak.yaml :as yaml]
+   [clojure.walk]))
 
 (defn bash-env-string?
   [input]
@@ -26,6 +27,19 @@
 
 (def auth? (s/keys :req-un [::user-name ::user-password]))
 
+(defn cast-lazy-seq-to-vec
+  [lazy-seq]
+  (clojure.walk/postwalk #(if (instance? clojure.lang.LazySeq %)
+                            (do (println %) (into [] %))
+                            %) lazy-seq))
+
+(defn replace-all-matching-values-by-new-value
+  [value-to-match value-to-replace coll]
+  (clojure.walk/postwalk #(if (and (= (type value-to-match) (type %)) 
+                                   (= value-to-match %))
+                            value-to-replace
+                            %) coll))
+
 (declare assoc-in-nested)
 (declare assoc-in-nested-seq)
 (declare assoc-in-nested-map)

src/test/cljc/dda/k8s_keycloak/core_test.cljc

@@ -95,7 +95,8 @@
                                                       :http {:paths [{:backend {:serviceName "another_keycloak"
                                                                                 :servicePort 8081}}]}}
                                                      ]))]
-    (is (= desired-result (cut/assoc-in-nested ingress-yaml [:spec :rules :host] fqdn))))
+    (is (= desired-result 
+           (cut/assoc-in-nested (cut/cast-lazy-seq-to-vec ingress-yaml) [:spec :rules :host] fqdn))))
     )