test-utils

(defn system-state
  []
  (or @core/system state/system))
 
 
(defn database-info []
  (-> (system-state)
      :secrets
      (rename-keys {:db-server-name   :server-name
                    :db-database-name :database-name
                    :db-username      :username
                    :db-password      :password})))
 
(defn migrate-test-db []
  (migrate (database-info)))
 
(defn system-fixture
  []
  (fn [f]
    (when (nil? (system-state))
      (migrate-test-db)
      (core/start-app {:opts {:profile :test}}))
    (f)))