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

Capped collection tests now pass

Browse source
This commit is contained in:
Michael Klishin 2014-05-11 13:12:30 -04:00
parent d7902c9618
commit f02a2b0afc
1 changed files with 17 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
test/monger/test/capped_collections_test.clj
View file

@ -1,33 +1,25 @@
(ns monger.test.capped-collections-test
(:require [monger core util]
(:require [monger.core :as mg]
[monger.collection :as mc]
[monger.result :as mres]
[monger.test.helper :as helper]
[clojure.test :refer :all]
[monger.operators :refer :all]
[monger.test.fixtures :refer :all]))
(helper/connect!)
[monger.operators :refer :all]))
(defn- megabytes
[^long n]
(* n 1024 1024))
;;
;; Tests
;;
(deftest test-inserting-into-capped-collection
(let [n 1000
cname "cached"
_ (mc/drop cname)
coll (mc/create cname {:capped true :size (-> 16 megabytes) :max n})]
(is (= cname (.getName coll)))
(mc/insert-batch cname (for [i (range 0 (+ n 100))] {:i i}))
(is (= n (mc/count cname)))
;; older elements get replaced by newer ones
(is (not (mc/any? cname {:i 1})))
(is (not (mc/any? cname {:i 5})))
(is (not (mc/any? cname {:i 9})))
(is (mc/any? cname {:i (+ n 80)}))))
(let [conn (mg/connect)
db (mg/get-db conn "monger-test")]
(deftest test-inserting-into-capped-collection
(let [n 1000
cname "cached"
_ (mc/drop db cname)
coll (mc/create db cname {:capped true :size (-> 16 megabytes) :max n})]
(is (= cname (.getName coll)))
(mc/insert-batch db cname (for [i (range 0 (+ n 100))] {:i i}))
(is (= n (mc/count db cname)))
;; older elements get replaced by newer ones
(is (not (mc/any? db cname {:i 1})))
(is (not (mc/any? db cname {:i 5})))
(is (not (mc/any? db cname {:i 9})))
(is (mc/any? db cname {:i (+ n 80)})))))