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

Introduce monger.errors.ok?

Browse source
This commit is contained in:
Michael S. Klishin 2011-08-14 03:56:31 +04:00
parent a3aa236655
commit a073d7ed20
2 changed files with 36 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/monger/errors.clj Normal file
View file

@ -0,0 +1,16 @@
(ns monger.errors
(:import (com.mongodb DBObject WriteResult CommandResult)
(clojure.lang IPersistentMap))
(:require [monger convertion]))
;;
;; API
;;
(defn ^boolean ok?
[^DBObject result]
(.contains [true "true" 1] (.get result "ok")))

20
test/monger/test/errors.clj Normal file
View file

@ -0,0 +1,20 @@
(ns monger.test.errors
(:import (com.mongodb BasicDBObject))
(:require [monger core collection convertion])
(:use [clojure.test]))
;;
;; ok?
;;
(deftest test-ok?
(let [result-that-is-not-ok-1 (doto (BasicDBObject.) (.put "ok" 0))
result-that-is-not-ok-2 (doto (BasicDBObject.) (.put "ok" "false"))
result-that-is-ok-1 (doto (BasicDBObject.) (.put "ok" 1))
result-that-is-ok-2 (doto (BasicDBObject.) (.put "ok" "true"))]
(is (not (monger.errors/ok? result-that-is-not-ok-1)))
(is (not (monger.errors/ok? result-that-is-not-ok-2)))
(is (monger.errors/ok? result-that-is-ok-1))
(is (monger.errors/ok? result-that-is-ok-2))))