add last-solved-date

project.clj

@@ -16,6 +16,7 @@
                  [incanter/incanter-charts "1.2.3"]
                  [org.apache.commons/commons-email "1.2"]]
   :dev-dependencies [[lein-ring "0.4.0"]
-                     [swank-clojure "1.2.1"]]
+                     [swank-clojure "1.2.1"]
+                     [midje "1.1.1"]]
   :main foreclojure.core
   :ring {:handler foreclojure.core/app})

src/foreclojure/problems.clj

@@ -95,10 +95,12 @@
 (defn store-completed-state! [username problem-id code]
   (let [{user-id :_id} (fetch-one :users
                                   :where {:user username}
-                                  :only [:_id])]
+                                  :only [:_id])
+        current-time (java.util.Date.)]
     (when (not-any? #{problem-id} (get-solved username))
       (update! :users {:_id user-id} {:$addToSet {:solved problem-id}})
       (update! :problems {:_id problem-id} {:$inc {:times-solved 1}})
+      (update! :users {:_id problem-id} {:$set {:last-solved-date current-time}})
       (send total-solved inc))
     (record-golf-score! user-id problem-id (code-length code))
     (save-solution (? user-id) (? problem-id) (? code))))

test/foreclojure/test/users.clj

@@ -0,0 +1,7 @@
+(ns foreclojure.test.users
+  (:use [foreclojure.users] :reload)
+  (:use [clojure.test])
+  (:use [midje.sweet]))
+
+(deftest "sorting users by solved/ contributer/ solved-date/ username"
+  (fact))