datomic testing.clj

(def user-to-add {
                  :name "sharedadmin"
                  :email "enginuity@enginuity.com"
                  :display_name "En Ginuity"
                  :password "somepass"
                  })

(def deftest-datomic
  (do-template [deftest-name schemas body]
               (deftest deftest-name 
                 (ds/start {:schemas schemas})
                 (binding [*connection* (d/connect *uri*)] body))))

(deftest-datomic add-and-retrieve-user user/schema
  (testing "did we actually add a user to the db and can we find them by name?"
    (let [added-user (user/add user-to-add)
          looked-up-user (user/find-first {:name (:name user-to-add)})]
      (is (= added-user looked-up-user)))))