integration-tests
Josha von Gizycki 7 years ago
parent 89166ad351
commit 9612fa952f

@ -10,6 +10,9 @@
(defn conn! []
@conn)
(defn uuid []
(str (java.util.UUID/randomUUID)))
(defn butiful-query [qry]
(->> qry
clojure.string/trim-newline

@ -7,9 +7,11 @@
(defn create-user! [ident pw]
(cypher/tquery
neo4j/conn
(neo4j/conn!)
"CREATE (n:user)
SET n.ident = {ident}
SET n.pw = {pw}"
SET n.pw = {pw}
SET n.uuid = {uuid}"
{:ident ident
:pw (hashers/derive pw)}))
:pw (hashers/derive pw)
:uuid (neo4j/uuid)}))

Loading…
Cancel
Save