gistfile1.clj

(defmacro with-local-user [& body]
  `(try (.setUp (test/local-service-test-helper (LocalUserServiceTestConfig.)))
        ~@body
        (finally
	 (test/tear-down))))

(defn wrap-with-gae-local-user-service
  "Ring middleware method that wraps an application so that every request will have
  a user-info map assoc'd to the request under the key :appengine/user-info."
  [application]
  (fn [request]
    (with-local-user (application request))))

(wrap! my-app (:users/with-user-info))
(wrap! my-app (:with-gae-local-user-service))

(defservice my-app)