Skip to content
This repository has been archived by the owner on Jan 11, 2020. It is now read-only.

Commit

Permalink
Updated dependency against the latest Judgr version.
Browse files Browse the repository at this point in the history
  • Loading branch information
danielfm committed Apr 29, 2012
1 parent 87e5b0f commit 5f0b37f
Show file tree
Hide file tree
Showing 3 changed files with 23 additions and 23 deletions.
2 changes: 1 addition & 1 deletion README.markdown
Expand Up @@ -12,7 +12,7 @@ Add the following dependencies to your _project.clj_ file:

````clojure

[judgr/mongodb "0.1.1"]
[judgr/mongodb "0.1.2"]
````

Then, require the `judgr.mongo.db` module and adjust the settings in
Expand Down
4 changes: 2 additions & 2 deletions project.clj
@@ -1,6 +1,6 @@
(defproject judgr/mongodb "0.1.1"
(defproject judgr/mongodb "0.1.2"
:description "MongoDB support for Judgr."
:url "http://github.com/danielfm/judgr-mongodb"
:dependencies [[judgr "0.1.1"]
:dependencies [[judgr "0.2.0"]
[congomongo "0.1.7"]]
:dev-dependencies [[lein-clojars "0.7.0"]])
40 changes: 20 additions & 20 deletions test/judgr/mongo/test/db.clj
Expand Up @@ -27,11 +27,11 @@
(def-fixture basic-db []
(let [db (db-from new-settings)]
(clean-db! db)
(.add-item! db "Some message" :ok)
(.add-item! db "Another message" :ok)
(.add-feature! db "Some message" "message" :ok)
(.add-feature! db "Another message" "message" :ok)
(.add-feature! db "Another message" "another" :ok)
(.add-item! db "Some message" :positive)
(.add-item! db "Another message" :positive)
(.add-feature! db "Some message" "message" :positive)
(.add-feature! db "Another message" "message" :positive)
(.add-feature! db "Another message" "another" :positive)
(test-body)))

(deftest ensure-mongodb
Expand All @@ -41,9 +41,9 @@
(deftest adding-items
(with-fixture empty-db []
(testing "if everything's ok"
(let [data (.add-item! db "Some message" :ok)]
(let [data (.add-item! db "Some message" :positive)]
(is (= "Some message" (:item data)))
(is (= :ok (:class data)))))
(is (= :positive (:class data)))))

(testing "if class is invalid"
(is (thrown? IllegalArgumentException
Expand All @@ -52,10 +52,10 @@
(deftest adding-features
(with-fixture empty-db []
(testing "if everything's ok"
(let [data (.add-feature! db "Some message" "message" :ok)]
(let [data (.add-feature! db "Some message" "message" :positive)]
(is (= "message" (:feature data)))
(is (= '(:ok) (-> data :classes keys)))
(is (= 1 (-> data :classes :ok)))
(is (= '(:positive) (-> data :classes keys)))
(is (= 1 (-> data :classes :positive)))
(is (= 1 (:total data)))))

(testing "if class is invalid"
Expand All @@ -64,11 +64,11 @@

(deftest updating-features
(with-fixture basic-db []
(let [data (.add-feature! db "Subliminar message" "message" :offensive)]
(let [data (.add-feature! db "Subliminar message" "message" :negative)]
(is (= "message" (:feature data)))
(is (= '(:offensive :ok) (-> data :classes keys)))
(is (= 2 (-> data :classes :ok)))
(is (= 1 (-> data :classes :offensive)))
(is (= '(:negative :positive) (-> data :classes keys)))
(is (= 2 (-> data :classes :positive)))
(is (= 1 (-> data :classes :negative)))
(is (= 3 (:total data))))))

(deftest counting-features
Expand All @@ -83,17 +83,17 @@
(with-fixture basic-db []
(let [data (.get-feature db "message")]
(is (= "message" (:feature data)))
(is (= '(:ok) (-> data :classes keys)))
(is (= 2 (-> data :classes :ok)))
(is (= '(:positive) (-> data :classes keys)))
(is (= 2 (-> data :classes :positive)))
(is (= 2 (:total data))))

(testing "when feature doesn't exist"
(is (nil? (.get-feature db "void"))))))

(deftest getting-items
(with-fixture basic-db []
(is (= '({:item "Some message" :class :ok}
{:item "Another message" :class :ok})
(is (= '({:item "Some message" :class :positive}
{:item "Another message" :class :positive})
(.get-items db)))

(testing "when there's no items"
Expand All @@ -110,7 +110,7 @@

(deftest counting-items-of-class
(with-fixture basic-db []
(is (= 2 (.count-items-of-class db :ok)))
(is (= 2 (.count-items-of-class db :positive)))

(testing "when there's no items in class"
(is (zero? (.count-items-of-class db :offensive))))))
(is (zero? (.count-items-of-class db :negative))))))

0 comments on commit 5f0b37f

Please sign in to comment.