-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathexample1.clj
More file actions
19 lines (18 loc) · 828 Bytes
/
example1.clj
File metadata and controls
19 lines (18 loc) · 828 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
(ns example1
(:require
[clojure.test :refer :all]
[datomic.client.api :as d]
[datomic-local-tu.core :as datomic-local-tu]))
(deftest test1
(with-open [db-env (datomic-local-tu/test-env)]
(let [_ (d/create-database (:client db-env) {:db-name "test"})
conn (d/connect (:client db-env) {:db-name "test"})
_ (d/transact conn {:tx-data [{:db/ident ::name
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one}]})
{:keys [tempids]} (d/transact conn {:tx-data [{:db/id "a"
::name "hi"}]})]
(is (= {::name "hi"}
(d/pull (d/db conn)
[::name]
(get tempids "a")))))))