memoize test

darkleaf · Nov 8, 2024 · e76cb5d · e76cb5d
1 parent 201ed3c
commit e76cb5d
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/test/darkleaf/di/cache_test.clj b/test/darkleaf/di/cache_test.clj
@@ -5,6 +5,13 @@
 
 (set! *warn-on-reflection* true)
 
+(t/deftest memoize-test
+  (let [a         'a
+        identity* (memoize identity)]
+    (identity* a)
+    (t/is (not (identical? a  (identity  'a))))
+    (t/is      (identical? a  (identity* 'a)))))
+
 (defn- some+identical? [a b]
   (and (some? a)
        (some? b)