making tests work again.

This commit is contained in:
2023-05-01 09:42:06 -07:00
parent 93ba8ca3b5
commit 611af7f9bb
9 changed files with 29 additions and 32 deletions

View File

@@ -2,7 +2,7 @@
(:require
[auto-ap.datomic :refer [conn pull-attr]]
[auto-ap.ledger :as sut]
[iol-ion.tx :refer [upsert-ledger]]
[iol-ion.tx.upsert-ledger :refer [upsert-ledger]]
[auto-ap.integration.util :refer [wrap-setup]]
[clojure.test :as t :refer [deftest is testing use-fixtures]]
[datomic.api :as d]))

View File

@@ -1,18 +1,16 @@
(ns auto-ap.integration.util
(:require [datomic.api :as dc]
[auto-ap.datomic :refer [client conn transact-schema]]
[auto-ap.datomic :refer [conn transact-schema]]
[clj-time.core :as time]))
(defn wrap-setup
[f]
(require 'datomic.dev-local)
(with-redefs [auto-ap.datomic/client (dc/client {:server-type :dev-local
:system "test"})]
(dc/create-database client {:db-name "test"})
(with-redefs [auto-ap.datomic/conn (dc/connect client {:db-name "test"})]
(with-redefs [auto-ap.datomic/uri "datomic:mem://test"]
(dc/create-database auto-ap.datomic/uri)
(with-redefs [auto-ap.datomic/conn auto-ap.datomic/uri]
(transact-schema conn)
(f)
(dc/delete-database client {:db-name "test"}))))
(dc/delete-database auto-ap.datomic/uri))))
(defn admin-token []
{:user "TEST ADMIN"