           (str "Unexpected response " response))
   response)
 
+(defn refresh-projections! []
+  (projections/refresh-async!)
+  (projections/await-refreshed (Duration/ofSeconds 10)))
+
 
 ;;;; API Helpers
 

                              :congregation/id cong-id
                              :user/id user-id
                              :permission/ids []})))
    (projections/refresh-async!)
    (projections/await-refreshed (Duration/ofSeconds 1))))


;;;; Tests

                              ;; TODO: create a command for removing a single permission? or produce the event directly from tests?
                              ;; removed :gis-access
                              :permission/ids [:view-congregation :configure-congregation]}))
      (refresh-projections!)

      (let [response (-> (request :get (str "/api/congregation/" cong-id "/qgis-project"))
                         (merge session)
