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

                              ;; 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]}))
      (projections/refresh-async!)
      (projections/await-refreshed (Duration/ofSeconds 1))

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

                            :command/system "test"
                            :congregation/id cong-id
                            :congregation/name name}))
    (refresh-projections!)
    cong-id))

(defn revoke-access-from-all! [cong-id]
