All tests pass again.
This commit is contained in:
@@ -1,20 +1,17 @@
|
||||
(ns auto-ap.integration.util
|
||||
(:require
|
||||
[auto-ap.datomic :refer [conn uri]]
|
||||
[clj-time.core :as time]
|
||||
[datomic.api :as dc]
|
||||
[auto-ap.datomic.migrate :as migrate])
|
||||
)
|
||||
(:require [datomic.client.api :as dc]
|
||||
[auto-ap.datomic :refer [client conn transact-schema]]
|
||||
[clj-time.core :as time]))
|
||||
|
||||
(defn wrap-setup
|
||||
[f]
|
||||
(with-redefs [auto-ap.datomic/uri "datomic:mem://datomic-transactor:4334/invoice"]
|
||||
(dc/create-database uri)
|
||||
(with-redefs [auto-ap.datomic/conn (dc/connect uri)]
|
||||
(migrate/migrate conn)
|
||||
(with-redefs [auto-ap.datomic/client (dc/client {:server-type :dev-local
|
||||
:system "dev"})]
|
||||
(dc/create-database client {:db-name "test"})
|
||||
(with-redefs [auto-ap.datomic/conn (dc/connect client {:db-name "test"})]
|
||||
(transact-schema conn)
|
||||
(f)
|
||||
(dc/delete-database uri))))
|
||||
|
||||
(dc/delete-database client {:db-name "test"}))))
|
||||
|
||||
(defn admin-token []
|
||||
{:user "TEST ADMIN"
|
||||
|
||||
Reference in New Issue
Block a user