All tests pass again.

This commit is contained in:
2023-03-20 15:59:57 -07:00
parent 9260834135
commit 1497549d64
6 changed files with 2092 additions and 47 deletions

View File

@@ -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"