/test/monger/test/indexing_test.clj

https://github.com/michaelklishin/monger · Clojure · 46 lines · 42 code · 2 blank · 2 comment · 3 complexity · c4f53ca9aca55ca2d1096291fed7c421 MD5 · raw file 

    

  1. (ns monger.test.indexing-test
    2. 

  2.   (:import  org.bson.types.ObjectId
    3. 

  3.             java.util.Date)
    4. 

  4.   (:require [monger.core :as mg]
    5. 

  5.             [monger.collection :as mc]
    6. 

  6.             monger.joda-time
    7. 

  7.             [clojure.test :refer :all]
    8. 

  8.             [clj-time.core :refer [now seconds ago from-now]]))
    9. 

  9. 

  10. (let [conn (mg/connect)
    11. 

  11.       db   (mg/get-db conn "monger-test")]
    12. 

  12.   (deftest ^{:indexing true} test-creating-and-dropping-indexes
    13. 

  13.     (let [collection "libraries"]
    14. 

  14.       (mc/drop-indexes db collection)
    15. 

  15.       (mc/create-index db collection {"language" 1})
    16. 

  16.       (is (= "language_1"
    17. 

  17.              (:name (second (mc/indexes-on db collection)))))
    18. 

  18.       (mc/drop-index db collection "language_1")
    19. 

  19.       (mc/create-index db collection ["language"])
    20. 

  20.       (mc/drop-index db collection "language_1")
    21. 

  21.       (is (nil? (second (mc/indexes-on db collection))))
    22. 

  22.       (mc/ensure-index db collection (array-map "language" 1) {:unique true})
    23. 

  23.       (is (= "language_1"
    24. 

  24.              (:name (second (mc/indexes-on db collection)))))
    25. 

  25.       (mc/ensure-index db collection (array-map "language" 1))
    26. 

  26.       (mc/ensure-index db collection (array-map "language" 1) {:unique true})
    27. 

  27.       (mc/drop-indexes db collection)))
    28. 

  28. 

  29.   (deftest ^{:indexing true :time-consuming true} test-ttl-collections
    30. 

  30.     (let [coll  "recent_events"
    31. 

  31.           ttl   30
    32. 

  32.           sleep 120]
    33. 

  33.       (mc/remove db coll)
    34. 

  34.       (mc/ensure-index db coll (array-map :created-at 1) {:expireAfterSeconds ttl})
    35. 

  35.       (dotimes [i 100]
    36. 

  36.         (mc/insert db coll {:type "signup" :created-at (-> i seconds ago) :i i}))
    37. 

  37.       (dotimes [i 100]
    38. 

  38.         (mc/insert db coll {:type "signup" :created-at (-> i seconds from-now) :i i}))
    39. 

  39.       (is (= 200 (mc/count db coll {:type "signup"})))
    40. 

  40.       ;; sleep for 65 seconds. MongoDB 2.1.2 seems to run TTLMonitor once per minute, according to
    41. 

  41.       ;; the log. MK.
    42. 

  42.       (println (format "Now sleeping for %d seconds to test TTL collections!" sleep))
    43. 

  43.       (Thread/sleep (* sleep 1000))
    44. 

  44.       (println (format "Documents in the TTL collection: %d" (mc/count db coll {:type "signup"})))
    45. 

  45.       (is (< (mc/count db coll {:type "signup"}) 100))
    46. 

  46.       (mc/remove db coll))))
    47.