Mocking out friend current-authentication

gistfile1.clj

(defn with-test-auth
  ([] (with-test-auth {}))
  ([credentials]
     (fn [f]
       (with-redefs-fn
         {#'cemerick.friend/current-authentication
          (fn [] (merge {:identity "test",
                         :username "test",
                         :email "foo@bar.com"} credentials))}
         f))))


(use-fixtures :each (with-test-auth))

;; We can now test code that relies on (cemerick.friend/current-authentication) to retrieve the authenticated user
(deftest current-authentication-is-now-set
  (is (not (empty? (cemerick.friend/current-authentication)))))