luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add asserts on cache sizes

Browse source
This commit is contained in:
Sean Corfield 2022-01-08 12:16:54 -08:00
parent 0a25bc2adf
commit 06102e9334
1 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
test/honey/cache_test.clj
View file

@ -28,41 +28,53 @@
(limit 50) (limit 50)
(offset 10))) (offset 10)))
(defn- cache-size [cache] (-> cache (deref) (keys) (count)))
(deftest cache-tests (deftest cache-tests
(let [cache (cache/basic-cache-factory {})] (let [cache (cache/basic-cache-factory {})]
(is (zero? (cache-size cache)))
(is (= ["SELECT * FROM table WHERE id = ?" 1] (is (= ["SELECT * FROM table WHERE id = ?" 1]
(sut/format {:select [:*] :from [:table] :where [:= :id 1]} (sut/format {:select [:*] :from [:table] :where [:= :id 1]}
{:cache cache}) {:cache cache})
(sut/format {:select [:*] :from [:table] :where [:= :id 1]} (sut/format {:select [:*] :from [:table] :where [:= :id 1]}
{:cache cache}))) {:cache cache})))
(is (= (sut/format {:select [:*] :from [:table] :where [:= :id 1]}) (is (= 1 (cache-size cache)))
(sut/format {:select [:*] :from [:table] :where [:= :id 1]} (is (= (sut/format {:select [:*] :from [:table] :where [:= :id 2]})
(sut/format {:select [:*] :from [:table] :where [:= :id 2]}
{:cache cache}))) {:cache cache})))
(is (= 2 (cache-size cache)))
(is (= (sut/format big-complicated-map {:params {:param1 "gabba" :param2 2}}) (is (= (sut/format big-complicated-map {:params {:param1 "gabba" :param2 2}})
(sut/format big-complicated-map {:cache cache :params {:param1 "gabba" :param2 2}}) (sut/format big-complicated-map {:cache cache :params {:param1 "gabba" :param2 2}})
(sut/format big-complicated-map {:cache cache :params {:param1 "gabba" :param2 2}}))) (sut/format big-complicated-map {:cache cache :params {:param1 "gabba" :param2 2}})))
(is (= 3 (cache-size cache)))
(is (= (sut/format big-complicated-map {:params {:param1 "foo" :param2 42}}) (is (= (sut/format big-complicated-map {:params {:param1 "foo" :param2 42}})
(sut/format big-complicated-map {:cache cache :params {:param1 "foo" :param2 42}}) (sut/format big-complicated-map {:cache cache :params {:param1 "foo" :param2 42}})
(sut/format big-complicated-map {:cache cache :params {:param1 "foo" :param2 42}}))) (sut/format big-complicated-map {:cache cache :params {:param1 "foo" :param2 42}})))
(is (= 3 (cache-size cache)))
(println "Uncached, simple, embedded") (println "Uncached, simple, embedded")
(time (dotimes [_ 100000] (time (dotimes [_ 100000]
(sut/format {:select [:*] :from [:table] :where [:= :id 1]}))) (sut/format {:select [:*] :from [:table] :where [:= :id (rand-int 10)]})))
(println "Cached, simple, embedded") (println "Cached, simple, embedded")
(time (dotimes [_ 100000] (time (dotimes [_ 100000]
(sut/format {:select [:*] :from [:table] :where [:= :id 1]} {:cache cache}))) (sut/format {:select [:*] :from [:table] :where [:= :id (rand-int 10)]} {:cache cache})))
(is (= 11 (cache-size cache)))
(println "Uncached, complex, mixed") (println "Uncached, complex, mixed")
(time (dotimes [_ 10000] (time (dotimes [_ 10000]
(sut/format big-complicated-map {:params {:param1 "gabba" :param2 2}}))) (sut/format big-complicated-map {:params {:param1 "gabba" :param2 (rand-int 10)}})))
(println "Cached, complex, mixed") (println "Cached, complex, mixed")
(time (dotimes [_ 10000] (time (dotimes [_ 10000]
(sut/format big-complicated-map {:cache cache :params {:param1 "gabba" :param2 2}})))) (sut/format big-complicated-map {:cache cache :params {:param1 "gabba" :param2 (rand-int 10)}})))
(is (= 11 (cache-size cache))))
(let [cache (cache/basic-cache-factory {})] (let [cache (cache/basic-cache-factory {})]
(is (zero? (cache-size cache)))
(is (= ["SELECT * FROM table WHERE id = ?" 1] (is (= ["SELECT * FROM table WHERE id = ?" 1]
(sut/format {:select [:*] :from [:table] :where [:= :id :?id]} (sut/format {:select [:*] :from [:table] :where [:= :id :?id]}
{:cache cache :params {:id 1}}) {:cache cache :params {:id 1}})
(sut/format {:select [:*] :from [:table] :where [:= :id :?id]} (sut/format {:select [:*] :from [:table] :where [:= :id :?id]}
{:cache cache :params {:id 1}}))) {:cache cache :params {:id 1}})))
(is (= 1 (cache-size cache)))
(is (= (sut/format {:select [:*] :from [:table] :where [:= :id :?id]} (is (= (sut/format {:select [:*] :from [:table] :where [:= :id :?id]}
{:params {:id 2}}) {:params {:id 2}})
(sut/format {:select [:*] :from [:table] :where [:= :id :?id]} (sut/format {:select [:*] :from [:table] :where [:= :id :?id]}
{:cache cache :params {:id 2}}))))) {:cache cache :params {:id 2}})))
(is (= 1 (cache-size cache)))))