deep-contains?

darkleaf · Oct 24, 2024 · 9e2de74 · 9e2de74
1 parent cfd3232
commit 9e2de74
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/test/darkleaf/di/cache_test.clj b/test/darkleaf/di/cache_test.clj
@@ -13,13 +13,18 @@
     (t/is (thrown? IllegalStateException
                    (di/start ::root (di/use-cache cache))))))
 
+(defn- deep-contains? [coll x]
+  (->> coll
+       (tree-seq coll? seq)
+       (filter #(= x %))
+       (first)
+       (not= nil)))
+
 (t/deftest not-recursive-test
   (di/with-open [[_ cache] (di/start [::root ::di/cache]
                                      {::root :root}
                                      (di/collect-cache))]
-    (t/try-expr "must not be recrusive"
-                (prn-str cache))))
-
+    (t/is (not (deep-contains? @cache cache)))))
 
 (defn- some+identical? [a b]
   (and (some? a)