diff --git a/test/monger/test/atomic_modifiers.clj b/test/monger/test/atomic_modifiers.clj
index 8e57d7f..4a83bc9 100644
--- a/test/monger/test/atomic_modifiers.clj
+++ b/test/monger/test/atomic_modifiers.clj
@@ -10,31 +10,72 @@
         [monger.test.fixtures]))
 
 
-(use-fixtures :each purge-docs-collection purge-things-collection)
+(defn purge-scores-collection
+  [f]
+  (purge-collection "scores" f))
+
+
+(use-fixtures :each purge-docs-collection purge-things-collection purge-scores-collection)
 
 (monger.core/set-default-write-concern! WriteConcern/SAFE)
 
 
+;;
+;; $inc
+;;
+
+(deftest increment-a-single-existing-field-using-$inc-modifier
+  (let [coll "scores"
+        oid  (ObjectId.)]
+    (mgcol/insert coll { :_id oid :username "l33r0y" :score 100 })
+    (mgcol/update coll { :_id oid } { "$inc" { :score 20 } })
+    (is (= 120 (:score (mgcol/find-map-by-id coll oid))))))
+
+
+(deftest set-a-single-non-existing-field-using-$inc-modifier
+  (let [coll "scores"
+        oid  (ObjectId.)]
+    (mgcol/insert coll { :_id oid :username "l33r0y" })
+    (mgcol/update coll { :_id oid } { "$inc" { :score 30 } })
+    (is (= 30 (:score (mgcol/find-map-by-id coll oid))))))
+
+
+(deftest increment-multiple-existing-fields-using-$inc-modifier
+  (let [coll "scores"
+        oid  (ObjectId.)]
+    (mgcol/insert coll { :_id oid :username "l33r0y" :score 100 :bonus 0 })
+    (mgcol/update coll { :_id oid } { "$inc" { :score 20 :bonus 10 } })
+    (is (= { :_id oid :score 120 :bonus 10 :username "l33r0y" } (mgcol/find-map-by-id coll oid)))))
+
+
+(deftest increment-and-set-multiple-existing-fields-using-$inc-modifier
+  (let [coll "scores"
+        oid  (ObjectId.)]
+    (mgcol/insert coll { :_id oid :username "l33r0y" :score 100 })
+    (mgcol/update coll { :_id oid } { "$inc" { :score 20 :bonus 10 } })
+    (is (= { :_id oid :score 120 :bonus 10 :username "l33r0y" } (mgcol/find-map-by-id coll oid)))))
+
+
 
 ;;
 ;; $set
 ;;
 
-(deftest update-a-single-existing-field-using-$set-operator
+(deftest update-a-single-existing-field-using-$set-modifier
   (let [coll "things"
         oid  (ObjectId.)]
     (mgcol/insert coll { :_id oid :weight 10.0 })
     (mgcol/update coll { :_id oid } { "$set" { :weight 20.5 } })
     (is (= 20.5 (:weight (mgcol/find-map-by-id coll oid [:weight]))))))
 
-(deftest set-a-single-non-existing-field-using-$set-operator
+(deftest set-a-single-non-existing-field-using-$set-modifier
   (let [coll "things"
         oid  (ObjectId.)]
     (mgcol/insert coll { :_id oid :weight 10.0 })
     (mgcol/update coll { :_id oid } { "$set" { :height 17.2 } })
     (is (= 17.2 (:height (mgcol/find-map-by-id coll oid [:height]))))))
 
-(deftest update-multiple-existing-fields-using-$set-operator
+(deftest update-multiple-existing-fields-using-$set-modifier
   (let [coll "things"
         oid  (ObjectId.)]
     (mgcol/insert coll { :_id oid :weight 10.0 :height 15.2 })
@@ -42,7 +83,7 @@
     (is (= { :_id oid :weight 20.5 :height 25.6 } (mgcol/find-map-by-id coll oid [:weight])))))
 
 
-(deftest update-and-set-multiple-fields-using-$set-operator
+(deftest update-and-set-multiple-fields-using-$set-modifier
   (let [coll "things"
         oid  (ObjectId.)]
     (mgcol/insert coll { :_id oid :weight 10.0 })