Show pageOld revisionsBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. # 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> open/test-utils.txt Last modified: 2024/10/05 06:15by 127.0.0.1