Add mongo-db test page

README

@@ -66,6 +66,7 @@ We use midje for testing. Simply run
     $ heroku create --stack cedar
     $ git push heroku master
     $ heroku scale web=1
+    $ heroku addons:add mongohq:free
     $ curl http://stewie.herokuapp.com
     Welcome to Stewie!
 

src/stewie/app.clj

@@ -1,6 +1,8 @@
 (ns stewie.app
-  (:use stewie.core)
-  (:use noir.core)
+  (use stewie.core
+       stewie.db
+       noir.core
+       somnium.congomongo)
   (:require [noir.server :as server]
             [noir.response :as response]))
 
@@ -21,6 +23,14 @@
         data (assoc data :density density)]
     (response/json data)))
 
+(defpage "/test-db" []
+  (maybe-init :stewie)
+  (let [counter (fetch-and-modify :stewie
+                                  {:_id "counter"}
+                                  {:$inc {:value 1} }
+                                  :return-new true :upsert? true)]
+    (str "Welcome to stewie, you're visitor " (or (:value counter) 0))))
+
 (defn -main [& m]
   (let [mode (keyword (or (first m) :dev))
         port (Integer. (get (System/getenv) "PORT" "8080"))]

src/stewie/db.clj

@@ -20,14 +20,3 @@
       (authenticate (:user config) (:pass config)) ;; Setup u/p.
       (or (collection-exists? collection) ;; Create collection named 'firstcollection' if it doesn't exist.
           (create-collection! collection)))))
-
-; (defpage "/welcome" []
-;   (maybe-init)
-;   (let [counter 
-;   (fetch-and-modify 
-;    :firstcollection ;; In the collection named 'firstcollection',
-;    {:_id "counter"} ;; find the counter record.
-;    {:$inc {:value 1} } ;; Increment it.
-;    :return-new true :upsert? true)] ;; Insert if not there.
-;     (common/layout
-;      [:p (str "Welcome to noir-heroku, you're visitor " (or (:value counter) 0))])))