PageRenderTime 23ms CodeModel.GetById 12ms RepoModel.GetById 0ms app.codeStats 0ms

/test/clj_diogok_sandbox/storage_test.clj

https://github.com/diogok/clj-diogok-sandbox
Clojure | 50 lines | 44 code | 6 blank | 0 comment | 10 complexity | 9abe65e09d6c796174e417fb788d364d MD5 | raw file
    

  1. (ns clj-diogok-sandbox.storage-test
    2. 

  2.   (:use [clj-diogok-sandbox.storage] :reload-all)
    3. 

  3.   (:use clj-diogok-sandbox.serializer)
    4. 

  4.   (:use [clojure.test]))
    5. 

  5. 

  6. (deftest mk-tuple
    7. 

  7.          (let [foo (tuple "foo" "bar")]
    8. 

  8.            (is (= "foo" (:key foo)))
    9. 

  9.            (is (= "bar" (:value foo)))
    10. 

  10.          ))
    11. 

  11. 

  12. (deftest do-put-get
    13. 

  13.          (let [buck (bucket "foo/bar")
    14. 

  14.                      t1  (put! buck (tuple "diogok" "diogok@me.com"))
    15. 

  15.                      t2  (put! buck (tuple "diogoh" "diogoh@me.com"))
    16. 

  16.                      t22 (put! buck (tuple "diogoh" "diogho@me.com"))
    17. 

  17.                      t3  (put! buck (tuple "diogog" "diogog@me.com"))]
    18. 

  18.            (is (= t1 (get! buck "diogok")))
    19. 

  19.            (is (= t22 (get! buck "diogoh")))
    20. 

  20.            (is (= (list t3 t22 t1) (get! buck)))
    21. 

  21.          ))
    22. 

  22. 

  23. (deftest do-put-get-consistency
    24. 

  24.          (let [buck  (bucket    "foo/bar2")
    25. 

  25.                t1    (put! buck (tuple "diogok" "diogok@me.com"))]
    26. 

  26.                  (let [buck2 (bucket "foo/bar2")]
    27. 

  27.                    (is (= t1 (get! buck2 "diogok"))))
    28. 

  28.          ))
    29. 

  29. 

  30. (deftest do-put-get-concurrency-consistency
    31. 

  31.          (let [ buck (bucket "foo/bar3")
    32. 

  32.                 t1 (future (dotimes [n 100] (let [obj (tuple (str "a" n) (str "a" n))]
    33. 

  33.                                       (put! buck obj))))
    34. 

  34.                 t2 (future (dotimes [n 100] (let [obj (tuple (str "b" n) (str "b" n))]
    35. 

  35.                                       (put! buck obj)))) ]
    36. 

  36.            [@t1 @t2]
    37. 

  37.            (is (= "a99" (:value (get! buck "a99"))))
    38. 

  38.            (is (= "b98" (:value (get! buck "b98"))))
    39. 

  39.            (let [buck2  (bucket "foo/bar3")]
    40. 

  40.              (is (= "a88" (:value (get! buck2 "a88"))))
    41. 

  41.              (is (= "b89" (:value (get! buck2 "b89")))))
    42. 

  42.          ))
    43. 

  43.             
    44. 

  44. 

  45. (.deleteOnExit (java.io.File. "foo/bar.idx"))
    46. 

  46. (.deleteOnExit (java.io.File. "foo/bar.db"))
    47. 

  47. (.deleteOnExit (java.io.File. "foo/bar2.idx"))
    48. 

  48. (.deleteOnExit (java.io.File. "foo/bar2.db"))
    49. 

  49. (.deleteOnExit (java.io.File. "foo/bar3.idx"))
    50. 

  50. (.deleteOnExit (java.io.File. "foo/bar3.db"))
    51. 

  51.