# test-utils

<code clojure>
(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)))
</code>