Compare commits
No commits in common. "develop" and "v1.3.955" have entirely different histories.
62 changed files with 1247 additions and 2286 deletions
|
|
@ -1,8 +0,0 @@
|
|||
{:hooks
|
||||
{:analyze-call
|
||||
{next.jdbc/with-transaction
|
||||
hooks.com.github.seancorfield.next-jdbc/with-transaction
|
||||
next.jdbc/with-transaction+options
|
||||
hooks.com.github.seancorfield.next-jdbc/with-transaction+options}}
|
||||
:lint-as {next.jdbc/on-connection clojure.core/with-open
|
||||
next.jdbc/on-connection+options clojure.core/with-open}}
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
(ns hooks.com.github.seancorfield.next-jdbc
|
||||
(:require [clj-kondo.hooks-api :as api]))
|
||||
|
||||
(defn with-transaction
|
||||
"Expands (with-transaction [tx expr opts] body)
|
||||
to (let [tx expr] opts body) per clj-kondo examples."
|
||||
[{:keys [:node]}]
|
||||
(let [[binding-vec & body] (rest (:children node))
|
||||
[sym val opts] (:children binding-vec)]
|
||||
(when-not (and sym val)
|
||||
(throw (ex-info "No sym and val provided" {})))
|
||||
(let [new-node (api/list-node
|
||||
(list*
|
||||
(api/token-node 'let)
|
||||
(api/vector-node [sym val])
|
||||
opts
|
||||
body))]
|
||||
{:node new-node})))
|
||||
|
||||
(defn with-transaction+options
|
||||
"Expands (with-transaction+options [tx expr opts] body)
|
||||
to (let [tx expr] opts body) per clj-kondo examples."
|
||||
[{:keys [:node]}]
|
||||
(let [[binding-vec & body] (rest (:children node))
|
||||
[sym val opts] (:children binding-vec)]
|
||||
(when-not (and sym val)
|
||||
(throw (ex-info "No sym and val provided" {})))
|
||||
(let [new-node (api/list-node
|
||||
(list*
|
||||
(api/token-node 'let)
|
||||
(api/vector-node [sym val])
|
||||
opts
|
||||
body))]
|
||||
{:node new-node})))
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
{:linters {:xtql/redundant-pipeline {:level :warning}
|
||||
:xtql/redundant-unify {:level :warning}
|
||||
:xtql/unrecognized-operation {:level :error}
|
||||
:xtql/unrecognized-parameter {:level :warning}
|
||||
:xtql/missing-parameter {:level :error}
|
||||
:xtql/type-mismatch {:level :error}
|
||||
:xtql/invalid-arity {:level :error}}
|
||||
:hooks {:analyze-call {xtdb.api/q hooks.xtql/q}}}
|
||||
|
|
@ -1,567 +0,0 @@
|
|||
(ns ^:no-doc hooks.xtql
|
||||
(:require [clj-kondo.hooks-api :as api]))
|
||||
|
||||
(def source-op?
|
||||
#{'from 'rel 'unify})
|
||||
|
||||
(def tail-op?
|
||||
#{'aggregate
|
||||
'limit 'offset
|
||||
'where
|
||||
'order-by
|
||||
'with 'without 'return
|
||||
'unnest})
|
||||
|
||||
(def unify-clause?
|
||||
#{'from 'rel
|
||||
'join 'left-join
|
||||
'unnest
|
||||
'where
|
||||
'with})
|
||||
|
||||
(defn node-map? [node]
|
||||
(contains? #{:map :namespaced-map}
|
||||
(:tag node)))
|
||||
|
||||
(defn node-namespaced-map? [node]
|
||||
(= :namespaced-map (:tag node)))
|
||||
|
||||
(defn map-children [node]
|
||||
(->> (if (node-namespaced-map? node)
|
||||
(-> node :children first)
|
||||
node)
|
||||
:children
|
||||
(partition-all 2)))
|
||||
|
||||
(defn node-vector? [node]
|
||||
(= :vector (:tag node)))
|
||||
|
||||
(defn node-list? [node]
|
||||
(= :list (:tag node)))
|
||||
|
||||
(defn node-symbol? [node]
|
||||
(symbol? (:value node)))
|
||||
|
||||
(defn node-symbol [node]
|
||||
(:value node))
|
||||
|
||||
(defn node-keyword? [node]
|
||||
(keyword? (:k node)))
|
||||
|
||||
(defn node-keyword [node]
|
||||
(:k node))
|
||||
|
||||
(defn node-quote? [node]
|
||||
(= :quote (:tag node)))
|
||||
|
||||
(defn node-op [node]
|
||||
(-> node :children first))
|
||||
|
||||
(declare lint-query)
|
||||
|
||||
(defmulti lint-unify-clause #(-> % node-op node-symbol))
|
||||
(defmulti lint-source-op #(-> % node-op node-symbol))
|
||||
(defmulti lint-tail-op #(-> % node-op node-symbol))
|
||||
|
||||
(defn lint-not-arg-symbol [node]
|
||||
(when (= \$ (-> node node-symbol str first))
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "unexpected parameter in binding"
|
||||
:type :xtql/unrecognized-parameter))))
|
||||
|
||||
(defn lint-bind [node]
|
||||
(cond
|
||||
(node-symbol? node)
|
||||
;; TODO: Make own type, should really be a warning
|
||||
(lint-not-arg-symbol node)
|
||||
|
||||
(node-map? node)
|
||||
(doseq [[k _v] (map-children node)]
|
||||
(when-not (node-keyword? k)
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "all keys in binding maps must be keywords"
|
||||
:type :xtql/type-mismatch))))
|
||||
|
||||
:else
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected a symbol or map"
|
||||
:type :xtql/type-mismatch))))
|
||||
|
||||
;; TODO: Lint more unify clauses
|
||||
(defmethod lint-unify-clause :default [node]
|
||||
(when-not (unify-clause? (-> node node-op node-symbol))
|
||||
(api/reg-finding!
|
||||
(assoc (some-> node :children first meta)
|
||||
:message "unrecognized unify clause"
|
||||
:type :xtql/unrecognized-operation))))
|
||||
|
||||
(defmethod lint-unify-clause 'from [node]
|
||||
(lint-source-op node))
|
||||
|
||||
(defmethod lint-unify-clause 'rel [node]
|
||||
(lint-source-op node))
|
||||
|
||||
(defmethod lint-unify-clause 'with [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (>= (count opts) 1)
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at least one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(doseq [opt opts]
|
||||
(if (node-map? opt)
|
||||
(let [ks (->> opt
|
||||
map-children
|
||||
(map first)
|
||||
(remove node-symbol?))]
|
||||
(doseq [k ks]
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "expected all keys to be symbols in a unify"
|
||||
:type :xtql/type-mismatch))))
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "opts must be a map"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defn lint-join-clause [node]
|
||||
(let [args (-> node :children rest)]
|
||||
(if-not (= (count args) 2)
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at exactly two arguments"
|
||||
:type :xtql/invalid-arity))
|
||||
(let [[query opts] args]
|
||||
(lint-query query)
|
||||
(cond
|
||||
(node-vector? opts)
|
||||
(->> opts :children (run! lint-bind))
|
||||
(node-map? opts)
|
||||
(let [kvs (map-children opts)
|
||||
ks (->> kvs
|
||||
(map first)
|
||||
(map node-keyword)
|
||||
(remove nil?)
|
||||
(into #{}))]
|
||||
(when-not (contains? ks :bind)
|
||||
(api/reg-finding!
|
||||
(assoc (meta opts)
|
||||
:message "Missing :bind parameter"
|
||||
:type :xtql/missing-parameter)))
|
||||
(doseq [[k v] kvs]
|
||||
(when-not (node-keyword? k)
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "All keys in 'opts' must be keywords"
|
||||
:type :xtql/type-mismatch)))
|
||||
(case (node-keyword k)
|
||||
:bind (if (node-vector? v)
|
||||
(->> v :children (run! lint-bind))
|
||||
(api/reg-finding!
|
||||
(assoc (meta v)
|
||||
:message "expected :bind value to be a vector"
|
||||
:type :xtql/type-mismatch)))
|
||||
:args (if (node-vector? v)
|
||||
;; TODO: Make args specific
|
||||
(->> v :children (run! lint-bind))
|
||||
(api/reg-finding!
|
||||
(assoc (meta v)
|
||||
:message "expected :args value to be a vector"
|
||||
:type :xtql/type-mismatch)))
|
||||
; else
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "unrecognized parameter"
|
||||
:type :xtql/unrecognized-parameter)))))
|
||||
:else
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "opts must be a map or vector"
|
||||
:type :xtql/type-mismatch)))))))
|
||||
|
||||
(defmethod lint-unify-clause 'join [node]
|
||||
(lint-join-clause node))
|
||||
|
||||
(defmethod lint-unify-clause 'inner-join [node]
|
||||
(lint-join-clause node))
|
||||
|
||||
(defmethod lint-unify-clause 'unnest [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (= 1 (count opts))
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at exactly one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(let [opt (first opts)]
|
||||
(if (node-map? opt)
|
||||
(doseq [[k _v] (map-children opt)]
|
||||
(when-not (node-symbol? k)
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "expected all columns to be symbols"
|
||||
:type :xtql/type-mismatch))))
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "expected opt to be a map"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
|
||||
(defmethod lint-source-op :default [node]
|
||||
(let [op (-> node node-op node-symbol)]
|
||||
(if (tail-op? op)
|
||||
(api/reg-finding!
|
||||
(assoc (some-> node :children first meta)
|
||||
:message "tail op in source position"
|
||||
:type :xtql/unrecognized-operation))
|
||||
(when-not (source-op? op)
|
||||
(api/reg-finding!
|
||||
(assoc (some-> node :children first meta)
|
||||
:message "unrecognized source operation"
|
||||
:type :xtql/unrecognized-operation))))))
|
||||
|
||||
(defmethod lint-source-op 'from [node]
|
||||
(let [[_ table opts] (some-> node :children)]
|
||||
(when-not (node-keyword? table)
|
||||
(api/reg-finding!
|
||||
(assoc (meta table)
|
||||
:message "expected 'table' to be a keyword"
|
||||
:type :xtql/type-mismatch)))
|
||||
(case (:tag opts)
|
||||
:vector (->> opts :children (run! lint-bind))
|
||||
:map
|
||||
(let [kvs (map-children opts)
|
||||
ks (->> kvs
|
||||
(map first)
|
||||
(map node-keyword)
|
||||
(remove nil?)
|
||||
(into #{}))]
|
||||
(when-not (contains? ks :bind)
|
||||
(api/reg-finding!
|
||||
(assoc (meta opts)
|
||||
:message "Missing :bind parameter"
|
||||
:type :xtql/missing-parameter)))
|
||||
(doseq [[k v] kvs]
|
||||
(when-not (node-keyword? k)
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "All keys in 'opts' must be keywords"
|
||||
:type :xtql/type-mismatch)))
|
||||
(case (node-keyword k)
|
||||
:bind (if (node-vector? v)
|
||||
(->> v :children (run! lint-bind))
|
||||
(api/reg-finding!
|
||||
(assoc (meta opts)
|
||||
:message "expected :bind value to be a vector"
|
||||
:type :xtql/type-mismatch)))
|
||||
;; TODO
|
||||
:for-valid-time nil
|
||||
;; TODO
|
||||
:for-system-time nil
|
||||
; else
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "unrecognized parameter"
|
||||
:type :xtql/unrecognized-parameter)))))
|
||||
(api/reg-finding!
|
||||
(assoc (meta opts)
|
||||
:message "expected 'opts' to be either a map or vector"
|
||||
:type :xtql/type-mismatch)))))
|
||||
|
||||
(defmethod lint-source-op 'unify [node]
|
||||
(let [[_ & clauses] (some-> node :children)]
|
||||
(doseq [bad-op (remove node-list? clauses)]
|
||||
(api/reg-finding!
|
||||
(assoc (meta bad-op)
|
||||
:message "all operations in a unify must be lists"
|
||||
:type :xtql/type-mismatch)))
|
||||
(when (= (count clauses) 1)
|
||||
(let [clause (first clauses)
|
||||
clause-op (-> clause node-op node-symbol)
|
||||
unify-node (some-> node :children first)]
|
||||
(case clause-op
|
||||
from (api/reg-finding!
|
||||
(assoc (meta unify-node)
|
||||
:message "redundant unify"
|
||||
:type :xtql/redundant-unify))
|
||||
rel (api/reg-finding!
|
||||
(assoc (meta unify-node)
|
||||
:message "redundant unify"
|
||||
:type :xtql/redundant-unify))
|
||||
;; TODO: Cover other operators
|
||||
nil)))
|
||||
(->> clauses
|
||||
(filter node-list?)
|
||||
(run! lint-unify-clause))))
|
||||
|
||||
(defmethod lint-source-op 'rel [node]
|
||||
(let [[_ _expr binds] (some-> node :children)]
|
||||
(if (node-vector? binds)
|
||||
(->> binds :children (run! lint-bind))
|
||||
(api/reg-finding!
|
||||
(assoc (meta binds)
|
||||
:message "expected rel binding to be a vector"
|
||||
:type :xtql/type-mismatch)))))
|
||||
|
||||
;; TODO: Lint more tail ops
|
||||
(defmethod lint-tail-op :default [node]
|
||||
(let [op (-> node node-op node-symbol)]
|
||||
(if (source-op? op)
|
||||
(api/reg-finding!
|
||||
(assoc (some-> node :children first meta)
|
||||
:message "source op in tail position"
|
||||
:type :xtql/unrecognized-operation))
|
||||
(when-not (tail-op? op)
|
||||
(api/reg-finding!
|
||||
(assoc (some-> node :children first meta)
|
||||
:message "unrecognized tail operation"
|
||||
:type :xtql/unrecognized-operation))))))
|
||||
|
||||
(defn lint-keyword [node name]
|
||||
(when-not (node-keyword? node)
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message (str "expected '" name "' to be a keyword")
|
||||
:type :xtql/type-mismatch))))
|
||||
|
||||
(defn lint-enum [node name values]
|
||||
;; TODO: Expand to more than just keywords?
|
||||
;; Maybe a `node-value` function?
|
||||
(when-not (contains? values (node-keyword node))
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message (str "expected '" name "' to be one of " values)
|
||||
;; TODO: change to different type?
|
||||
:type :xtql/type-mismatch))))
|
||||
|
||||
(defmethod lint-tail-op 'limit [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (= 1 (count opts))
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected exactly one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(when-let [opt (first opts)]
|
||||
(when-not (some-> opt :value int?)
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "expected limit to be an integer"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defmethod lint-tail-op 'offset [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (= 1 (count opts))
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected exactly one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(when-let [opt (first opts)]
|
||||
(when-not (some-> opt :value int?)
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "expected offset to be an integer"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defmethod lint-tail-op 'with [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (>= (count opts) 1)
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at least one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(doseq [opt opts]
|
||||
(cond
|
||||
(node-symbol? opt)
|
||||
(lint-not-arg-symbol opt)
|
||||
(node-map? opt)
|
||||
(let [ks (->> opt
|
||||
map-children
|
||||
(map first)
|
||||
(remove node-keyword?))]
|
||||
(doseq [k ks]
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "expected all keys to be keywords"
|
||||
:type :xtql/type-mismatch))))
|
||||
:else
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "opts must be a symbol or map"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defmethod lint-tail-op 'return [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (>= (count opts) 1)
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at least one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(doseq [opt opts]
|
||||
(cond
|
||||
(node-symbol? opt)
|
||||
(lint-not-arg-symbol opt)
|
||||
(node-map? opt)
|
||||
(let [ks (->> opt
|
||||
map-children
|
||||
(map first)
|
||||
(remove node-keyword?))]
|
||||
(doseq [k ks]
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "expected all keys to be keywords"
|
||||
:type :xtql/type-mismatch))))
|
||||
:else
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "opts must be a symbol or map"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defmethod lint-tail-op 'order-by [node]
|
||||
(doseq [opt (-> node :children rest)]
|
||||
(cond
|
||||
(node-symbol? opt)
|
||||
(lint-not-arg-symbol opt)
|
||||
|
||||
(node-map? opt)
|
||||
(let [kvs (map-children opt)
|
||||
ks (->> kvs
|
||||
(map first)
|
||||
(map node-keyword)
|
||||
(remove nil?)
|
||||
(into #{}))]
|
||||
(when-not (contains? ks :val)
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "Missing :val parameter"
|
||||
:type :xtql/missing-parameter)))
|
||||
(doseq [[k v] kvs]
|
||||
(when-not (node-keyword? k)
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "All keys in 'opts' must be keywords"
|
||||
:type :xtql/type-mismatch)))
|
||||
(case (node-keyword k)
|
||||
:val
|
||||
(cond
|
||||
(node-symbol? v)
|
||||
(lint-not-arg-symbol v)
|
||||
(node-keyword? v)
|
||||
(api/reg-finding!
|
||||
(assoc (meta v)
|
||||
:message "expected :val value to be a symbol or an expression"
|
||||
:type :xtql/type-mismatch)))
|
||||
; else do nothing
|
||||
:dir
|
||||
(if (node-keyword? v)
|
||||
(lint-enum v :dir #{:asc :desc})
|
||||
(lint-keyword v ":dir value"))
|
||||
:nulls
|
||||
(if (node-keyword? v)
|
||||
(lint-enum v :nulls #{:first :last})
|
||||
(lint-keyword v ":nulls value"))
|
||||
; else
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "unrecognized parameter"
|
||||
:type :xtql/unrecognized-parameter)))))
|
||||
|
||||
:else
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "opts must be a symbol or map"
|
||||
:type :xtql/type-mismatch)))))
|
||||
|
||||
(defmethod lint-tail-op 'without [node]
|
||||
(let [columns (-> node :children rest)]
|
||||
(when-not (>= (count columns) 1)
|
||||
;; TODO: Should be a warning really
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at least one column"
|
||||
:type :xtql/invalid-arity)))
|
||||
(doseq [column columns]
|
||||
(when-not (node-keyword? column)
|
||||
(api/reg-finding!
|
||||
(assoc (meta column)
|
||||
:message "expected column to be a keyword"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defmethod lint-tail-op 'aggregate [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (>= (count opts) 1)
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at least one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(doseq [opt opts]
|
||||
(cond
|
||||
(node-symbol? opt)
|
||||
(lint-not-arg-symbol opt)
|
||||
(node-map? opt)
|
||||
(doseq [[k _v] (map-children opt)]
|
||||
(when-not (node-keyword? k)
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "expected all keys to be keywords"
|
||||
:type :xtql/type-mismatch))))
|
||||
|
||||
:else
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "expected opts to be a symbol or map"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defmethod lint-tail-op 'unnest [node]
|
||||
(let [opts (-> node :children rest)]
|
||||
(when-not (= 1 (count opts))
|
||||
(api/reg-finding!
|
||||
(assoc (meta node)
|
||||
:message "expected at exactly one argument"
|
||||
:type :xtql/invalid-arity)))
|
||||
(let [opt (first opts)]
|
||||
(if (node-map? opt)
|
||||
(doseq [[k _v] (map-children opt)]
|
||||
(when-not (node-keyword? k)
|
||||
(api/reg-finding!
|
||||
(assoc (meta k)
|
||||
:message "expected all columns to be keywords"
|
||||
:type :xtql/type-mismatch))))
|
||||
(api/reg-finding!
|
||||
(assoc (meta opt)
|
||||
:message "expected opt to be a map"
|
||||
:type :xtql/type-mismatch))))))
|
||||
|
||||
(defn lint-pipeline [node]
|
||||
(let [[_ & ops] (some-> node :children)]
|
||||
(doseq [bad-op (remove node-list? ops)]
|
||||
(api/reg-finding!
|
||||
(assoc (meta bad-op)
|
||||
:message "all operations in a pipeline must be lists"
|
||||
:type :xtql/type-mismatch)))
|
||||
(when (= 1 (count ops))
|
||||
(api/reg-finding!
|
||||
(assoc (-> node :children first meta)
|
||||
:message "redundant pipeline"
|
||||
:type :xtql/redundant-pipeline)))
|
||||
(let [first-op (first ops)]
|
||||
(when (node-list? first-op)
|
||||
(lint-source-op (first ops))))
|
||||
(->> ops
|
||||
(drop 1)
|
||||
(filter node-list?)
|
||||
(run! lint-tail-op))))
|
||||
|
||||
(defn lint-query [node]
|
||||
(if (= '-> (node-symbol (-> node :children first)))
|
||||
(lint-pipeline node)
|
||||
(lint-source-op node)))
|
||||
|
||||
;; TODO: Lint other functions that take queries
|
||||
|
||||
(defn q [{:keys [node]}]
|
||||
(let [[_ _node quoted-query] (some-> node :children)]
|
||||
(when (node-quote? quoted-query)
|
||||
(let [query (-> quoted-query :children first)]
|
||||
(lint-query query)))))
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
{:linters {:cond-plus/empty-else {:level :error}
|
||||
:cond-plus/missing-fn {:level :error}
|
||||
:cond-plus/non-final-else {:level :error}
|
||||
:cond-plus/sequence {:level :error}
|
||||
:unresolved-symbol {:exclude [(cond-plus.core/cond+ [=> else])]}}
|
||||
:hooks {:analyze-call {cond-plus.core/cond+ hooks.cond-plus-hook/cond+}}}
|
||||
|
|
@ -1,65 +0,0 @@
|
|||
(ns hooks.cond-plus-hook
|
||||
(:require [clj-kondo.hooks-api :as api]))
|
||||
|
||||
(defn analyze-clauses [clauses]
|
||||
(reduce
|
||||
(fn [found-else? clause]
|
||||
;; non-sequence clause
|
||||
(if (not (or (api/list-node? clause)
|
||||
(api/vector-node? clause)))
|
||||
(let [{:keys [row col]} (meta clause)]
|
||||
(api/reg-finding!
|
||||
{:message "must be sequence"
|
||||
:type :cond-plus/sequence
|
||||
:row row
|
||||
:col col})
|
||||
found-else?)
|
||||
(let [[sym arrow fn-expr] (api/sexpr clause)]
|
||||
(cond
|
||||
;; non-final else
|
||||
found-else?
|
||||
(do (api/reg-finding!
|
||||
(merge
|
||||
{:message ":else must be in final position"
|
||||
:type :cond-plus/non-final-else}
|
||||
found-else?))
|
||||
(reduced nil))
|
||||
;; check fn-exprs
|
||||
(and (or (= :> arrow)
|
||||
(= '=> arrow))
|
||||
(nil? fn-expr))
|
||||
(let [{:keys [row col]} (meta clause)]
|
||||
(api/reg-finding!
|
||||
{:message "fn-expr must have third position symbol"
|
||||
:type :cond-plus/missing-fn
|
||||
:row row
|
||||
:col col})
|
||||
found-else?)
|
||||
;; else handling
|
||||
(or (= :else sym)
|
||||
(= 'else sym))
|
||||
(if found-else?
|
||||
(let [{:keys [row col]} (meta clause)]
|
||||
(api/reg-finding!
|
||||
{:message "only one :else clause allowed"
|
||||
:type :cond-plus/empty-else
|
||||
:row row
|
||||
:col col})
|
||||
;; early exit cuz not worth analyzing the rest
|
||||
(reduced nil))
|
||||
(do (when-not arrow
|
||||
(let [{:keys [row col]} (meta clause)]
|
||||
(api/reg-finding!
|
||||
{:message ":else must have a body"
|
||||
:type :cond-plus/empty-else
|
||||
:row row
|
||||
:col col})))
|
||||
;; Store row and col from existing else as we don't throw until
|
||||
;; we've seen a following clause
|
||||
(select-keys (meta clause) [:row :col])))))))
|
||||
nil
|
||||
clauses))
|
||||
|
||||
(defn cond+ [{:keys [node]}]
|
||||
(analyze-clauses (rest (:children node)))
|
||||
node)
|
||||
|
|
@ -1,23 +0,0 @@
|
|||
{:lint-as {lazytest.core/given clojure.core/let
|
||||
lazytest.core/around clojure.core/fn
|
||||
lazytest.core/defdescribe clojure.core/def
|
||||
;; clojure.test interface
|
||||
lazytest.experimental.interfaces.clojure-test/deftest clojure.test/deftest
|
||||
lazytest.experimental.interfaces.clojure-test/testing clojure.test/testing
|
||||
lazytest.experimental.interfaces.clojure-test/is clojure.test/is
|
||||
lazytest.experimental.interfaces.clojure-test/are clojure.test/are
|
||||
;; xunit interface
|
||||
lazytest.experimental.interfaces.xunit/defsuite clojure.core/def
|
||||
;; Expectations v2
|
||||
lazytest.extensions.expectations/defexpect clojure.core/def
|
||||
lazytest.extensions.expectations/from-each clojure.core/for
|
||||
lazytest.extensions.expectations/=? clojure.core/=
|
||||
}
|
||||
:hooks {:analyze-call {;; Expectations v2
|
||||
lazytest.extensions.expectations/more-> hooks.lazytest.expectations/more->
|
||||
lazytest.extensions.expectations/more-of hooks.lazytest.expectations/more-of
|
||||
}}
|
||||
:linters {:clojure-lsp/unused-public-var
|
||||
{:exclude-when-defined-by #{lazytest.core/defdescribe
|
||||
lazytest.experimental.interfaces.xunit/defsuite
|
||||
lazytest.experimental.interfaces.clojure-test/deftest}}}}
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
;; Copied from https://github.com/clojure-expectations/clojure-test/blob/b90ed5b24924238b3b16b0bbaaee4c3b05a1268a
|
||||
|
||||
(ns hooks.lazytest.expectations
|
||||
(:require [clj-kondo.hooks-api :as api]))
|
||||
|
||||
(defn more-> [{:keys [node]}]
|
||||
(let [tail (rest (:children node))
|
||||
rewritten
|
||||
(api/list-node
|
||||
(list*
|
||||
(api/token-node 'cond->)
|
||||
(api/token-node 'nil)
|
||||
tail))]
|
||||
{:node rewritten}))
|
||||
|
||||
(defn more-of [{:keys [node]}]
|
||||
(let [bindings (fnext (:children node))
|
||||
pairs (partition 2 (nnext (:children node)))
|
||||
rewritten
|
||||
(api/list-node
|
||||
(list*
|
||||
(api/token-node 'fn)
|
||||
(api/vector-node (vector bindings))
|
||||
(map (fn [[e a]]
|
||||
(api/list-node
|
||||
(list
|
||||
(api/token-node 'lazytest.core/expect)
|
||||
e
|
||||
a)))
|
||||
pairs)))]
|
||||
{:node rewritten}))
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
{:linters
|
||||
{:unresolved-symbol
|
||||
{:exclude [(cljs.test/is [match? thrown-match?])
|
||||
(clojure.test/is [match? thrown-match?])]}}}
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
{:lint-as
|
||||
{rewrite-clj.zip/subedit-> clojure.core/->
|
||||
rewrite-clj.zip/subedit->> clojure.core/->>
|
||||
rewrite-clj.zip/edit-> clojure.core/->
|
||||
rewrite-clj.zip/edit->> clojure.core/->>}}
|
||||
|
|
@ -1 +0,0 @@
|
|||
{:config-in-call {xtdb.api/template {:ignore [:unresolved-symbol :unresolved-namespace]}}}
|
||||
7
.github/workflows/test-and-release.yml
vendored
7
.github/workflows/test-and-release.yml
vendored
|
|
@ -15,11 +15,11 @@ jobs:
|
|||
- uses: actions/setup-java@v4
|
||||
with:
|
||||
distribution: 'temurin'
|
||||
java-version: '21'
|
||||
java-version: '11'
|
||||
- name: Setup Clojure
|
||||
uses: DeLaGuardo/setup-clojure@master
|
||||
with:
|
||||
cli: '1.12.0.1530'
|
||||
cli: '1.12.0.1479'
|
||||
- name: Cache All The Things
|
||||
uses: actions/cache@v4
|
||||
with:
|
||||
|
|
@ -34,7 +34,7 @@ jobs:
|
|||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
- name: Run MariaDB Tests
|
||||
run: clojure -M:test:runner
|
||||
run: clojure -X:test
|
||||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
NEXT_JDBC_TEST_MYSQL: yes
|
||||
|
|
@ -44,7 +44,6 @@ jobs:
|
|||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
NEXT_JDBC_TEST_MYSQL: yes
|
||||
NEXT_JDBC_TEST_XTDB: yes
|
||||
NEXT_JDBC_TEST_MSSQL: yes
|
||||
MSSQL_SA_PASSWORD: Str0ngP4ssw0rd
|
||||
- name: Deploy Release
|
||||
|
|
|
|||
12
.github/workflows/test-and-snapshot.yml
vendored
12
.github/workflows/test-and-snapshot.yml
vendored
|
|
@ -13,11 +13,11 @@ jobs:
|
|||
- uses: actions/setup-java@v4
|
||||
with:
|
||||
distribution: 'temurin'
|
||||
java-version: '21'
|
||||
java-version: '11'
|
||||
- name: Setup Clojure
|
||||
uses: DeLaGuardo/setup-clojure@master
|
||||
with:
|
||||
cli: '1.12.0.1530'
|
||||
cli: '1.12.0.1479'
|
||||
- name: Cache All The Things
|
||||
uses: actions/cache@v4
|
||||
with:
|
||||
|
|
@ -32,7 +32,7 @@ jobs:
|
|||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
- name: Run MariaDB Tests
|
||||
run: clojure -M:test:runner
|
||||
run: clojure -X:test
|
||||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
NEXT_JDBC_TEST_MYSQL: yes
|
||||
|
|
@ -42,7 +42,6 @@ jobs:
|
|||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
NEXT_JDBC_TEST_MYSQL: yes
|
||||
NEXT_JDBC_TEST_XTDB: yes
|
||||
NEXT_JDBC_TEST_MSSQL: yes
|
||||
MSSQL_SA_PASSWORD: Str0ngP4ssw0rd
|
||||
- name: Deploy Snapshot
|
||||
|
|
@ -65,14 +64,15 @@ jobs:
|
|||
- name: Setup Clojure
|
||||
uses: DeLaGuardo/setup-clojure@master
|
||||
with:
|
||||
cli: '1.12.0.1530'
|
||||
cli: '1.12.0.1479'
|
||||
- name: Cache All The Things
|
||||
uses: actions/cache@v4
|
||||
with:
|
||||
path: |
|
||||
~/.m2/repository
|
||||
~/.gitlibs
|
||||
~/.clojure
|
||||
~/.cpcache
|
||||
key: ${{ runner.os }}-${{ hashFiles('**/deps.edn') }}
|
||||
- name: Run Tests
|
||||
run: clojure -T:build:jdk${{ matrix.java }} test
|
||||
run: clojure -T:build test
|
||||
|
|
|
|||
7
.github/workflows/test.yml
vendored
7
.github/workflows/test.yml
vendored
|
|
@ -17,7 +17,7 @@ jobs:
|
|||
- name: Setup Clojure
|
||||
uses: DeLaGuardo/setup-clojure@master
|
||||
with:
|
||||
cli: '1.12.0.1530'
|
||||
cli: '1.12.0.1479'
|
||||
- name: Cache All The Things
|
||||
uses: actions/cache@v4
|
||||
with:
|
||||
|
|
@ -32,16 +32,15 @@ jobs:
|
|||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
- name: Run MariaDB Tests
|
||||
run: clojure -M:test:runner
|
||||
run: clojure -X:test
|
||||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
NEXT_JDBC_TEST_MYSQL: yes
|
||||
NEXT_JDBC_TEST_MARIADB: yes
|
||||
- name: Run All Tests
|
||||
run: clojure -M:test:runner:jdk${{ matrix.java }}
|
||||
run: clojure -X:test
|
||||
env:
|
||||
MYSQL_ROOT_PASSWORD: testing
|
||||
NEXT_JDBC_TEST_MYSQL: yes
|
||||
NEXT_JDBC_TEST_XTDB: yes
|
||||
NEXT_JDBC_TEST_MSSQL: yes
|
||||
MSSQL_SA_PASSWORD: Str0ngP4ssw0rd
|
||||
|
|
|
|||
10
.gitignore
vendored
10
.gitignore
vendored
|
|
@ -1,8 +1,12 @@
|
|||
*.class
|
||||
*.jar
|
||||
*.swp
|
||||
*~
|
||||
.calva/output-window/
|
||||
.calva/repl.calva-repl
|
||||
.classpath
|
||||
.clj-kondo/.cache
|
||||
.clj-kondo/.lock
|
||||
.clj-kondo/com.github.seancorfield/next.jdbc
|
||||
.cpcache
|
||||
.eastwood
|
||||
.factorypath
|
||||
|
|
@ -20,10 +24,6 @@
|
|||
.settings
|
||||
.socket-repl-port
|
||||
.sw*
|
||||
*.class
|
||||
*.jar
|
||||
*.swp
|
||||
*~
|
||||
/checkouts
|
||||
/classes
|
||||
/clojure_test_*
|
||||
|
|
|
|||
3
.gitpod.dockerfile
Normal file
3
.gitpod.dockerfile
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
FROM gitpod/workspace-full
|
||||
|
||||
RUN brew install clojure/tools/clojure@1.12.0.1479
|
||||
23
.gitpod.yml
Normal file
23
.gitpod.yml
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
image:
|
||||
file: .gitpod.dockerfile
|
||||
|
||||
vscode:
|
||||
extensions:
|
||||
- betterthantomorrow.calva
|
||||
- mauricioszabo.clover
|
||||
|
||||
tasks:
|
||||
- name: Prepare deps/clover
|
||||
init: |
|
||||
clojure -A:test -P
|
||||
echo 50505 > .socket-repl-port
|
||||
mkdir ~/.config/clover
|
||||
cp .clover/config.cljs ~/.config/clover/
|
||||
- name: Start REPL
|
||||
command: clojure -J-Dclojure.server.repl="{:address \"0.0.0.0\" :port 50505 :accept clojure.core.server/repl}" -A:test
|
||||
- name: See Changes
|
||||
command: code CHANGELOG.md
|
||||
|
||||
github:
|
||||
prebuilds:
|
||||
develop: true
|
||||
6
.joker
Normal file
6
.joker
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
{:known-macros [next.jdbc/with-transaction]
|
||||
:ignored-unused-namespaces [next.jdbc.connection
|
||||
next.jdbc.date-time
|
||||
next.jdbc.prepare
|
||||
next.jdbc.result-set
|
||||
next.jdbc.transaction]}
|
||||
19
.vscode/settings.json
vendored
Normal file
19
.vscode/settings.json
vendored
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
{
|
||||
"calva.replConnectSequences": [
|
||||
{
|
||||
"name": "next.jdbc (Jack-In)",
|
||||
"projectType": "deps.edn",
|
||||
"autoSelectForJackIn": true,
|
||||
"menuSelections": {
|
||||
"cljAliases": ["1.12", "dev/repl", "portal", "test"]
|
||||
}
|
||||
},
|
||||
{
|
||||
"name": "next.jdbc (Connect)",
|
||||
"projectType": "deps.edn",
|
||||
"autoSelectForConnect": true
|
||||
}
|
||||
],
|
||||
"calva.autoStartRepl": true,
|
||||
"calva.autoConnectRepl": true
|
||||
}
|
||||
32
CHANGELOG.md
32
CHANGELOG.md
|
|
@ -2,39 +2,11 @@
|
|||
|
||||
Only accretive/fixative changes will be made from now on.
|
||||
|
||||
* 1.3.next in progress
|
||||
* Fix handling of `false` in `clob-column-reader` [#299](https://github.com/seancorfield/next-jdbc/issues/299) via PR [#300](https://github.com/seancorfield/next-jdbc/pull/300) from [@GAumala](https://github.com/GAumala)
|
||||
* Switch tests to LazyTest via PR [#297](https://github.com/seancorfield/next-jdbc/pull/297).
|
||||
* Update dev/test/build deps.
|
||||
|
||||
* 1.3.1002 -- 2025-03-06
|
||||
* Address [#296](https://github.com/seancorfield/next-jdbc/issues/296) by adding an explicit check (and `throw`) for `sql-params` in `next.jdbc` functions.
|
||||
* Address [#295](https://github.com/seancorfield/next-jdbc/issues/295) by providing a way to tell `next.jdbc` that certain options should be passed "as-is" in the `Properties` object when creating a `Connection` -- `:next.jdbc/as-is-properties` accepts a sequence (or set) of keywords, identifying properties that should not be converted to strings.
|
||||
* Fix [#181](https://github.com/seancorfield/next-jdbc/issues/181) (again!) by adding `Wrapped` protocol as a way for `DefaultOptions` and `SQLLogging` to consistently expose the underlying connectable, even when nested.
|
||||
|
||||
* 1.3.994 -- 2025-01-28
|
||||
* Fix [#293](https://github.com/seancorfield/next-jdbc/issues/293) by no longer `locking` on the `Connection` retrieved from a `DataSource`.
|
||||
* Fix documentation examples of `execute-batch!` via PR [#292](https://github.com/seancorfield/next-jdbc/pull/292) from [@devurandom](https://github.com/devurandom).
|
||||
* Update `java.data` to 1.3.113.
|
||||
* Beef up bit/boolean tests and enable them for XTDB.
|
||||
|
||||
* 1.3.981 -- 2024-12-13
|
||||
* Address [#291](https://github.com/seancorfield/next-jdbc/issues/291) by adding an XTDB section to **Tips & Tricks**.
|
||||
* Added XTDB as a supported database for testing via PR [#290](https://github.com/seancorfield/next-jdbc/pull/290). _Note: not all features are tested against XTDB due to several fundamental differences in architecture, mostly around primary key/generated keys and lack of DDL operations (since XTDB is schemaless)._
|
||||
* Update dev/test dependencies.
|
||||
|
||||
* 1.3.967 -- 2024-12-02
|
||||
* Address [#288](https://github.com/seancorfield/next-jdbc/issues/288) by adding speculative support for `:dbtype "xtdb"`.
|
||||
* Fix [#287](https://github.com/seancorfield/next-jdbc/issues/287) by merging user-supplied options over `:return-keys true`.
|
||||
* Fix [#282](https://github.com/seancorfield/next-jdbc/issues/282) by tracking raw `Connection` objects for active TXs, which relaxes several of the conditions around nested transactions.
|
||||
* Replace `assert` calls with proper validation, throwing `IllegalArgumentException` on failure.
|
||||
* Removed (experimental) `:name-fn` option since the driver for it no longer exists (qualified columns names in XTDB).
|
||||
|
||||
* 1.3.955 -- 2024-10-06
|
||||
* 1.3.955 in progress
|
||||
* Address [#285](https://github.com/seancorfield/next-jdbc/issues/285) by setting the default Clojure version to the earliest supported (1.10.3) to give a better hint to users.
|
||||
* Update PostgreSQL **Tips & Tricks** example code to fix possible NPE. PR [#284](https://github.com/seancorfield/next-jdbc/pull/284) from [@ExNexu](https://github.com/ExNexu).
|
||||
* Address [#283](https://github.com/seancorfield/next-jdbc/issues/283) by adding a note in the documentation, linking to the PostgreSQL bug report about `ANY(array)`.
|
||||
* ~Address [#269](https://github.com/seancorfield/next-jdbc/issues/269) by adding `:name-fn` as an option (primarily for the SQL builder functions, but also for result set processing); the default is `clojure.core/name` but you can now use `next.jdbc.sql.builder/qualified-name` to preserve the qualifier.~ _[This was removed in 1.3.967 since XTDB no longer supports qualified column names]_
|
||||
* Address [#269](https://github.com/seancorfield/next-jdbc/issues/269) by adding `:name-fn` as an option (primarily for the SQL builder functions, but also for result set processing); the default is `clojure.core/name` but you can now use `next.jdbc.sql.builder/qualified-name` to preserve the qualifier.
|
||||
* Update testing deps; `docker-compose` => `docker compose`.
|
||||
|
||||
* 1.3.939 -- 2024-05-17
|
||||
|
|
|
|||
13
README.md
13
README.md
|
|
@ -8,11 +8,10 @@ The next generation of `clojure.java.jdbc`: a new low-level Clojure wrapper for
|
|||
|
||||
The latest versions on Clojars and on cljdoc:
|
||||
|
||||
[](https://clojars.org/com.github.seancorfield/next.jdbc)
|
||||
[](https://cljdoc.org/d/com.github.seancorfield/next.jdbc/CURRENT)
|
||||
[](https://clojars.org/com.github.seancorfield/next.jdbc)
|
||||
[](https://cljdoc.org/d/com.github.seancorfield/next.jdbc/CURRENT)
|
||||
[](https://clojurians.slack.com/app_redirect?channel=sql)
|
||||
[](http://clojurians.net)
|
||||
[](https://clojurians.zulipchat.com/#narrow/channel/152063-sql)
|
||||
|
||||
The documentation on [cljdoc.org](https://cljdoc.org/d/com.github.seancorfield/next.jdbc/CURRENT) is for the current version of `next.jdbc`:
|
||||
|
||||
|
|
@ -21,11 +20,11 @@ The documentation on [cljdoc.org](https://cljdoc.org/d/com.github.seancorfield/n
|
|||
* [Migrating from `clojure.java.jdbc`](https://cljdoc.org/d/com.github.seancorfield/next.jdbc/CURRENT/doc/migration-from-clojure-java-jdbc)
|
||||
* Feedback via [issues](https://github.com/seancorfield/next-jdbc/issues) or in the [`#sql` channel on the Clojurians Slack](https://clojurians.slack.com/messages/C1Q164V29/) or the [`#sql` stream on the Clojurians Zulip](https://clojurians.zulipchat.com/#narrow/stream/152063-sql).
|
||||
|
||||
The documentation on GitHub is for **develop** since the 1.3.1002 release -- [see the CHANGELOG](https://github.com/seancorfield/next-jdbc/blob/develop/CHANGELOG.md) and then read the [corresponding updated documentation](https://github.com/seancorfield/next-jdbc/tree/develop/doc) on GitHub if you want. Older versions of `next.jdbc` were published under the `seancorfield` group ID and you can find [older seancorfield/next.jdbc documentation on cljdoc.org](https://cljdoc.org/versions/seancorfield/next.jdbc).
|
||||
The documentation on GitHub is for **develop** since the 1.3.955 release -- [see the CHANGELOG](https://github.com/seancorfield/next-jdbc/blob/develop/CHANGELOG.md) and then read the [corresponding updated documentation](https://github.com/seancorfield/next-jdbc/tree/develop/doc) on GitHub if you want. Older versions of `next.jdbc` were published under the `seancorfield` group ID and you can find [older seancorfield/next.jdbc documentation on cljdoc.org](https://cljdoc.org/versions/seancorfield/next.jdbc).
|
||||
|
||||
This project follows the version scheme MAJOR.MINOR.COMMITS where MAJOR and MINOR provide some relative indication of the size of the change, but do not follow semantic versioning. In general, all changes endeavor to be non-breaking (by moving to new names rather than by breaking existing names). COMMITS is an ever-increasing counter of commits since the beginning of this repository.
|
||||
|
||||
> Note: every commit to the **develop** branch runs CI (GitHub Actions) and successful runs push a MAJOR.MINOR.9999-SNAPSHOT build to Clojars so the very latest version of `next.jdbc` is always available either via that [snapshot on Clojars](https://clojars.org/com.github.seancorfield/next.jdbc) or via a git dependency on the latest SHA.
|
||||
> Note: every commit to the **develop** branch runs CI (GitHub Actions) and successful runs push a MAJOR.MINOR.999-SNAPSHOT build to Clojars so the very latest version of `next.jdbc` is always available either via that [snapshot on Clojars](https://clojars.org/com.github.seancorfield/next.jdbc) or via a git dependency on the latest SHA.
|
||||
|
||||
## Motivation
|
||||
|
||||
|
|
@ -51,7 +50,7 @@ From a `DataSource`, either you or `next.jdbc` can create a `java.sql.Connection
|
|||
|
||||
The primary SQL execution API in `next.jdbc` is:
|
||||
* `plan` -- yields an `IReduceInit` that, when reduced with an initial value, executes the SQL statement and then reduces over the `ResultSet` with as little overhead as possible.
|
||||
* `execute!` -- executes the SQL statement and produces a vector of realized hash maps, that use qualified keywords for the column names, of the form `:<table>/<column>`. If you join across multiple tables, the qualified keywords will reflect the originating tables for each of the columns. If the SQL produces named values that do not come from an associated table, a simple, unqualified keyword will be used. The realized hash maps returned by `execute!` are `Datafiable` and thus `Navigable` (see Clojure 1.10's `datafy` and `nav` functions, and tools like [Portal](https://github.com/djblue/portal), [Reveal](https://github.com/vlaaad/reveal), and Nubank's Morse -- formerly Cognitect's REBL). Alternatively, you can specify `{:builder-fn rs/as-arrays}` and produce a vector with column names followed by vectors of row values. `rs/as-maps` is the default for `:builder-fn` but there are also `rs/as-unqualified-maps` and `rs/as-unqualified-arrays` if you want unqualified `:<column>` column names (and there are also lower-case variants of all of these).
|
||||
* `execute!` -- executes the SQL statement and produces a vector of realized hash maps, that use qualified keywords for the column names, of the form `:<table>/<column>`. If you join across multiple tables, the qualified keywords will reflect the originating tables for each of the columns. If the SQL produces named values that do not come from an associated table, a simple, unqualified keyword will be used. The realized hash maps returned by `execute!` are `Datafiable` and thus `Navigable` (see Clojure 1.10's `datafy` and `nav` functions, and tools like [Portal](https://github.com/djblue/portal), [Reveal](https://github.com/vlaaad/reveal), and Cognitect's REBL). Alternatively, you can specify `{:builder-fn rs/as-arrays}` and produce a vector with column names followed by vectors of row values. `rs/as-maps` is the default for `:builder-fn` but there are also `rs/as-unqualified-maps` and `rs/as-unqualified-arrays` if you want unqualified `:<column>` column names (and there are also lower-case variants of all of these).
|
||||
* `execute-one!` -- executes the SQL or DDL statement and produces a single realized hash map. The realized hash map returned by `execute-one!` is `Datafiable` and thus `Navigable`.
|
||||
|
||||
In addition, there are API functions to create `PreparedStatement`s (`prepare`) from `Connection`s, which can be passed to `plan`, `execute!`, or `execute-one!`, and to run code inside a transaction (the `transact` function and the `with-transaction` macro).
|
||||
|
|
@ -89,6 +88,6 @@ In addition, convenience functions -- "syntactic sugar" -- are provided to inser
|
|||
|
||||
## License
|
||||
|
||||
Copyright © 2018-2024 Sean Corfield
|
||||
Copyright © 2018-2021 Sean Corfield
|
||||
|
||||
Distributed under the Eclipse Public License version 1.0.
|
||||
|
|
|
|||
14
build.clj
14
build.clj
|
|
@ -5,33 +5,29 @@
|
|||
clojure -T:build deploy
|
||||
|
||||
Run tests via:
|
||||
clojure -M:test:runner
|
||||
clojure -X:test
|
||||
|
||||
For more information, run:
|
||||
|
||||
clojure -A:deps -T:build help/doc"
|
||||
(:refer-clojure :exclude [test])
|
||||
(:require [clojure.tools.build.api :as b]
|
||||
[deps-deploy.deps-deploy :as dd]
|
||||
[clojure.string :as str]))
|
||||
[deps-deploy.deps-deploy :as dd]))
|
||||
|
||||
(def lib 'com.github.seancorfield/next.jdbc)
|
||||
(defn- the-version [patch] (format "1.3.%s" patch))
|
||||
(def version (the-version (b/git-count-revs nil)))
|
||||
(def snapshot (the-version "9999-SNAPSHOT"))
|
||||
(def snapshot (the-version "999-SNAPSHOT"))
|
||||
(def class-dir "target/classes")
|
||||
|
||||
(defn test "Run all the tests." [opts]
|
||||
(doseq [alias [:1.10 :1.11 :1.12]]
|
||||
(println "\nRunning tests for Clojure" (name alias))
|
||||
(let [basis (b/create-basis
|
||||
{:aliases (cond-> [:test alias]
|
||||
(str/starts-with? (System/getProperty "java.version") "21")
|
||||
(conj :jdk21))})
|
||||
(let [basis (b/create-basis {:aliases [:test alias]})
|
||||
cmds (b/java-command
|
||||
{:basis basis
|
||||
:main 'clojure.main
|
||||
:main-args ["-m" "lazytest.main"]})
|
||||
:main-args ["-m" "cognitect.test-runner"]})
|
||||
{:keys [exit]} (b/process cmds)]
|
||||
(when-not (zero? exit) (throw (ex-info "Tests failed" {})))))
|
||||
opts)
|
||||
|
|
|
|||
55
deps.edn
55
deps.edn
|
|
@ -1,13 +1,12 @@
|
|||
{:mvn/repos {"sonatype" {:url "https://oss.sonatype.org/content/repositories/snapshots/"}
|
||||
"ossrh-snapshots" {:url "https://s01.oss.sonatype.org/content/repositories/snapshots"}}
|
||||
{:mvn/repos {"sonatype" {:url "https://oss.sonatype.org/content/repositories/snapshots/"}}
|
||||
:paths ["src" "resources"]
|
||||
:deps {org.clojure/clojure {:mvn/version "1.10.3"}
|
||||
org.clojure/java.data {:mvn/version "1.3.113"}
|
||||
org.clojure/java.data {:mvn/version "1.2.107"}
|
||||
|
||||
camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.3"}}
|
||||
:aliases
|
||||
{;; for help: clojure -A:deps -T:build help/doc
|
||||
:build {:deps {io.github.clojure/tools.build {:mvn/version "0.10.7"}
|
||||
:build {:deps {io.github.clojure/tools.build {:mvn/version "0.10.5"}
|
||||
slipset/deps-deploy {:mvn/version "0.2.2"}}
|
||||
:ns-default build}
|
||||
|
||||
|
|
@ -17,42 +16,36 @@
|
|||
:1.12 {:override-deps {org.clojure/clojure {:mvn/version "1.12.0"}}}
|
||||
|
||||
;; running tests/checks of various kinds:
|
||||
:test {:extra-paths ["test"]
|
||||
:test {:extra-paths ["test"] ; can also run clojure -X:test
|
||||
:extra-deps {org.clojure/test.check {:mvn/version "1.1.1"}
|
||||
io.github.noahtheduke/lazytest {:mvn/version "1.6.1"}
|
||||
io.github.cognitect-labs/test-runner
|
||||
{:git/tag "v0.5.1" :git/sha "dfb30dd"}
|
||||
;; connection pooling
|
||||
com.zaxxer/HikariCP {:mvn/version "6.3.0"}
|
||||
com.zaxxer/HikariCP {:mvn/version "6.0.0"}
|
||||
com.mchange/c3p0 {:mvn/version "0.10.1"}
|
||||
;; JDBC drivers
|
||||
;; 10.16.x is JDK17+
|
||||
org.apache.derby/derby {:mvn/version "10.15.2.0"}
|
||||
org.apache.derby/derbyshared {:mvn/version "10.15.2.0"}
|
||||
org.hsqldb/hsqldb {:mvn/version "2.7.4"}
|
||||
org.hsqldb/hsqldb {:mvn/version "2.7.3"}
|
||||
com.h2database/h2 {:mvn/version "2.3.232"}
|
||||
net.sourceforge.jtds/jtds {:mvn/version "1.3.1"}
|
||||
org.mariadb.jdbc/mariadb-java-client {:mvn/version "3.5.2"}
|
||||
com.mysql/mysql-connector-j {:mvn/version "9.2.0"}
|
||||
org.mariadb.jdbc/mariadb-java-client {:mvn/version "3.4.1"}
|
||||
com.mysql/mysql-connector-j {:mvn/version "9.0.0"}
|
||||
;; 42.7.4 changes update count (to -1) for stored procs:
|
||||
org.postgresql/postgresql {:mvn/version "42.7.5"}
|
||||
io.zonky.test/embedded-postgres {:mvn/version "2.1.0"}
|
||||
io.zonky.test.postgres/embedded-postgres-binaries-darwin-amd64 {:mvn/version "17.4.0"}
|
||||
io.zonky.test.postgres/embedded-postgres-binaries-linux-amd64 {:mvn/version "17.4.0"}
|
||||
io.zonky.test.postgres/embedded-postgres-binaries-windows-amd64 {:mvn/version "17.4.0"}
|
||||
org.xerial/sqlite-jdbc {:mvn/version "3.49.1.0"}
|
||||
com.microsoft.sqlserver/mssql-jdbc {:mvn/version "12.10.0.jre11"}
|
||||
org.postgresql/postgresql {:mvn/version "42.7.4"}
|
||||
io.zonky.test/embedded-postgres {:mvn/version "2.0.7"}
|
||||
io.zonky.test.postgres/embedded-postgres-binaries-darwin-amd64 {:mvn/version "17.0.0"}
|
||||
io.zonky.test.postgres/embedded-postgres-binaries-linux-amd64 {:mvn/version "17.0.0"}
|
||||
io.zonky.test.postgres/embedded-postgres-binaries-windows-amd64 {:mvn/version "17.0.0"}
|
||||
org.xerial/sqlite-jdbc {:mvn/version "3.46.1.3"}
|
||||
com.microsoft.sqlserver/mssql-jdbc {:mvn/version "12.8.1.jre11"}
|
||||
;; use log4j2 to reduce log noise during testing:
|
||||
org.apache.logging.log4j/log4j-api {:mvn/version "2.24.3"}
|
||||
org.apache.logging.log4j/log4j-api {:mvn/version "2.24.0"}
|
||||
;; bridge everything into log4j:
|
||||
org.apache.logging.log4j/log4j-1.2-api {:mvn/version "2.24.3"}
|
||||
org.apache.logging.log4j/log4j-jcl {:mvn/version "2.24.3"}
|
||||
org.apache.logging.log4j/log4j-jul {:mvn/version "2.24.3"}
|
||||
org.apache.logging.log4j/log4j-slf4j-impl {:mvn/version "2.24.3"}
|
||||
org.apache.logging.log4j/log4j-slf4j2-impl {:mvn/version "2.24.3"}}
|
||||
:jvm-opts ["-Dlog4j2.configurationFile=log4j2-info.properties"]}
|
||||
:runner {:main-opts ["-m" "lazytest.main"]}
|
||||
:jdk11 {}
|
||||
:jdk17 {}
|
||||
:jdk21 {:extra-deps {;; only need the XTDB JDBC module:
|
||||
com.xtdb/xtdb-jdbc {:mvn/version "2.0.0-beta7"}}}
|
||||
:jdk24 {:jvm-opts [;; for SQLite on JDK 24 locally
|
||||
"--enable-native-access=ALL-UNNAMED"]}}}
|
||||
org.apache.logging.log4j/log4j-1.2-api {:mvn/version "2.24.0"}
|
||||
org.apache.logging.log4j/log4j-jcl {:mvn/version "2.24.0"}
|
||||
org.apache.logging.log4j/log4j-jul {:mvn/version "2.24.0"}
|
||||
org.apache.logging.log4j/log4j-slf4j-impl {:mvn/version "2.24.0"}}
|
||||
:jvm-opts ["-Dlog4j2.configurationFile=log4j2-info.properties"]
|
||||
:exec-fn cognitect.test-runner.api/test}}}
|
||||
|
|
|
|||
|
|
@ -33,9 +33,6 @@ Any path that calls `get-connection` will accept the following options:
|
|||
|
||||
If you need additional options set on a connection, you can either use Java interop to set them directly, or provide them as part of the "db spec" hash map passed to `get-datasource` (although then they will apply to _all_ connections obtained from that datasource).
|
||||
|
||||
Additional options passed are set as `java.util.Properties` and, by default, are coerced to strings.
|
||||
If you are working with a driver that requires a non-string value for a property (such as the Snowflake driver), you can provide a `:next.jdbc/as-is-properties` option containing a sequence of options that should be added as-is, rather than coerced to strings.
|
||||
|
||||
> Note: If `plan`, `execute!`, or `execute-one!` are passed a `DataSource`, a "db spec" hash map, or a JDBC URL string, they will call `get-connection`, so they will accept the above options in those cases.
|
||||
|
||||
## Generating SQL
|
||||
|
|
@ -44,6 +41,7 @@ Except for `query` (which is simply an alias for `execute!`), all the "friendly"
|
|||
|
||||
* `:table-fn` -- the quoting function to be used on the string that identifies the table name, if provided; this also applies to assumed table names when `nav`igating schemas,
|
||||
* `:column-fn` -- the quoting function to be used on any string that identifies a column name, if provided; this also applies to the reducing function context over `plan` and to assumed foreign key column names when `nav`igating schemas.
|
||||
* `:name-fn` -- may be provided as `next.jdbc.sql.builder/qualified-name` to preserve qualifiers on table and column names; you will need to provide `:table-fn` and/or `:column-fn` as well, in order to quote qualified names properly; new in 1.3.955.
|
||||
|
||||
They also support a `:suffix` argument which can be used to specify a SQL string that should be appended to the generated SQL string before executing it, e.g., `:suffix "FOR UPDATE"` or, for an `insert!` call `:suffix "RETURNING *"`.
|
||||
The latter is particularly useful for databases, such as SQLite these days,
|
||||
|
|
@ -73,6 +71,7 @@ Any function that might realize a row or a result set will accept:
|
|||
* `:label-fn` -- if `:builder-fn` is specified as one of `next.jdbc.result-set`'s `as-modified-*` builders, this option must be present and should specify a string-to-string transformation that will be applied to the column label for each returned column name.
|
||||
* `:qualifier-fn` -- if `:builder-fn` is specified as one of `next.jdbc.result-set`'s `as-modified-*` builders, this option should specify a string-to-string transformation that will be applied to the table name for each returned column name. It will be called with an empty string if the table name is not available. It can be omitted for the `as-unqualified-modified-*` variants.
|
||||
* `:column-fn` -- if present, applied to each column name before looking up the column in the `ResultSet` to get that column's value.
|
||||
* `:name-fn` -- may be provided as `next.jdbc.sql.builder/qualified-name` to preserve qualifiers on keyword used as column names; by default, a keyword like `:foo/bar` is treated as `"bar"` when looking up columns in a `ResultSet`; `:name-fn` allows you to refer to column names that contain `/`, which some databases allow; if both `:name-fn` and `:column-fn` are provided, `:name-fn` is applied first to the keyword (to produce a string) and then `:column-fn` is applied to that; new in 1.3.955.
|
||||
|
||||
In addition, `execute!` accepts the `:multi-rs true` option to return multiple result sets -- as a vector of result sets.
|
||||
|
||||
|
|
|
|||
|
|
@ -117,8 +117,8 @@ will use `execute-batch!` under the hood, instead of `execute!`, as follows:
|
|||
{:batch true})
|
||||
;; equivalent to
|
||||
(jdbc/execute-batch! ds
|
||||
"INSERT INTO address (name,email) VALUES (?,?)"
|
||||
[["Stella" "stella@artois.beer"]
|
||||
["INSERT INTO address (name,email) VALUES (?,?)"
|
||||
["Stella" "stella@artois.beer"]
|
||||
["Waldo" "waldo@lagunitas.beer"]
|
||||
["Aunt Sally" "sour@lagunitas.beer"]]
|
||||
{:return-keys true :return-generated-keys true})
|
||||
|
|
@ -131,8 +131,8 @@ will use `execute-batch!` under the hood, instead of `execute!`, as follows:
|
|||
{:batch true})
|
||||
;; equivalent to
|
||||
(jdbc/execute-batch! ds
|
||||
"INSERT INTO address (name,email) VALUES (?,?)"
|
||||
[["Stella" "stella@artois.beer"]
|
||||
["INSERT INTO address (name,email) VALUES (?,?)"
|
||||
["Stella" "stella@artois.beer"]
|
||||
["Waldo" "waldo@lagunitas.beer"]
|
||||
["Aunt Sally" "sour@lagunitas.beer"]]
|
||||
{:return-keys true :return-generated-keys true})
|
||||
|
|
|
|||
|
|
@ -11,21 +11,21 @@ It is designed to work with Clojure 1.10 or later, supports `datafy`/`nav`, and
|
|||
You can add `next.jdbc` to your project with either:
|
||||
|
||||
```clojure
|
||||
com.github.seancorfield/next.jdbc {:mvn/version "1.3.1002"}
|
||||
com.github.seancorfield/next.jdbc {:mvn/version "1.3.955"}
|
||||
```
|
||||
for `deps.edn` or:
|
||||
|
||||
```clojure
|
||||
[com.github.seancorfield/next.jdbc "1.3.1002"]
|
||||
[com.github.seancorfield/next.jdbc "1.3.955"]
|
||||
```
|
||||
for `project.clj` or `build.boot`.
|
||||
|
||||
**In addition, you will need to add dependencies for the JDBC drivers you wish to use for whatever databases you are using. For example:**
|
||||
|
||||
* MySQL: `com.mysql/mysql-connector-j {:mvn/version "9.1.0"}` ([search for latest version](https://search.maven.org/artifact/com.mysql/mysql-connector-j))
|
||||
* PostgreSQL: `org.postgresql/postgresql {:mvn/version "42.7.4"}` ([search for latest version](https://search.maven.org/artifact/org.postgresql/postgresql))
|
||||
* Microsoft SQL Server: `com.microsoft.sqlserver/mssql-jdbc {:mvn/version "12.8.1.jre11"}` ([search for latest version](https://search.maven.org/artifact/com.microsoft.sqlserver/mssql-jdbc))
|
||||
* Sqlite: `org.xerial/sqlite-jdbc {:mvn/version "3.47.1.0"}` ([search for latest version](https://search.maven.org/artifact/org.xerial/sqlite-jdbc))
|
||||
* MySQL: `com.mysql/mysql-connector-j {:mvn/version "8.1.0"}` ([search for latest version](https://search.maven.org/artifact/com.mysql/mysql-connector-j))
|
||||
* PostgreSQL: `org.postgresql/postgresql {:mvn/version "42.6.0"}` ([search for latest version](https://search.maven.org/artifact/org.postgresql/postgresql))
|
||||
* Microsoft SQL Server: `com.microsoft.sqlserver/mssql-jdbc {:mvn/version "12.4.1.jre11"}` ([search for latest version](https://search.maven.org/artifact/com.microsoft.sqlserver/mssql-jdbc))
|
||||
* Sqlite: `org.xerial/sqlite-jdbc {:mvn/version "3.43.0.0"}` ([search for latest version](https://search.maven.org/artifact/org.xerial/sqlite-jdbc))
|
||||
|
||||
> Note: these are the versions that `next.jdbc` is tested against but there may be more recent versions and those should generally work too -- click the "search for latest version" link to see all available versions of those drivers on Maven Central. You can see the full list of drivers and versions that `next.jdbc` is tested against in [the project's `deps.edn` file](https://github.com/seancorfield/next-jdbc/blob/develop/deps.edn#L10-L27), but many other JDBC drivers for other databases should also work (e.g., Oracle, Red Shift).
|
||||
|
||||
|
|
@ -38,8 +38,8 @@ For the examples in this documentation, we will use a local H2 database on disk,
|
|||
```clojure
|
||||
;; deps.edn
|
||||
{:deps {org.clojure/clojure {:mvn/version "1.12.0"}
|
||||
com.github.seancorfield/next.jdbc {:mvn/version "1.3.1002"}
|
||||
com.h2database/h2 {:mvn/version "2.3.232"}}}
|
||||
com.github.seancorfield/next.jdbc {:mvn/version "1.3.955"}
|
||||
com.h2database/h2 {:mvn/version "2.2.224"}}}
|
||||
```
|
||||
|
||||
### Create & Populate a Database
|
||||
|
|
@ -487,9 +487,9 @@ Not all databases support using a `PreparedStatement` for every type of SQL oper
|
|||
First, you need to add the connection pooling library as a dependency, e.g.,
|
||||
|
||||
```clojure
|
||||
com.zaxxer/HikariCP {:mvn/version "6.2.1"}
|
||||
com.zaxxer/HikariCP {:mvn/version "5.0.1"}
|
||||
;; or:
|
||||
com.mchange/c3p0 {:mvn/version "0.10.1"}
|
||||
com.mchange/c3p0 {:mvn/version "0.9.5.5"}
|
||||
```
|
||||
|
||||
_Check those libraries' documentation for the latest version to use!_
|
||||
|
|
|
|||
|
|
@ -55,7 +55,7 @@ be very database-specific. Some database drivers **don't** use the hierarchy
|
|||
above -- notably PostgreSQL, which has a generic `PSQLException` type
|
||||
with its own subclasses and semantics. See [PostgreSQL JDBC issue #963](https://github.com/pgjdbc/pgjdbc/issues/963)
|
||||
for a discussion of the difficulty in adopting the standard JDBC hierarchy
|
||||
(dating back to 2017!).
|
||||
(dating back five years).
|
||||
|
||||
The `java.sql.SQLException` class provides `.getErrorCode()` and
|
||||
`.getSQLState()` methods but the values returned by those are
|
||||
|
|
@ -237,7 +237,6 @@ common approach, there is also a non-JDBC Clojure/Java driver for PostgreSQL cal
|
|||
quite a bit faster than using JDBC.
|
||||
|
||||
When you use `:return-keys true` with `execute!` or `execute-one!` (or you use `insert!`), PostgreSQL returns the entire inserted row (unlike nearly every other database that just returns any generated keys!).
|
||||
_[It seems to achieve this by the equivalent of automatically appending `RETURNING *` to your SQL, if necessary.]_
|
||||
|
||||
The default result set builder for `next.jdbc` is `as-qualified-maps` which
|
||||
uses the `.getTableName()` method on `ResultSetMetaData` to qualify the
|
||||
|
|
@ -575,26 +574,3 @@ If you are using `plan`, you'll most likely be accessing columns by just the lab
|
|||
|
||||
See also [`datafy`, `nav`, and `:schema` > **SQLite**](/doc/datafy-nav-and-schema.md#sqlite)
|
||||
for additional caveats on the `next.jdbc.datafy` namespace when using SQLite.
|
||||
|
||||
## XTDB
|
||||
|
||||
XTDB is a bitemporal, schemaless, document-oriented database that presents
|
||||
itself as a PostgreSQL-compatible database, in terms of JDBC. It has a number
|
||||
of SQL extensions, and some differences from common JDBC behavior. See
|
||||
its documentation for details:
|
||||
* [SQL Overview](https://docs.xtdb.com/quickstart/sql-overview.html)
|
||||
* [SQL Queries](https://docs.xtdb.com/reference/main/sql/queries.html)
|
||||
* [SQL Transactions/DML](https://docs.xtdb.com/reference/main/sql/txs.html)
|
||||
|
||||
`next.jdbc` officially supports XTDB as of 1.3.981 but there are some caveats:
|
||||
* You can use `:dbtype "xtdb"` to identify XTDB as the database type.
|
||||
* You must specify `:dbname "xtdb"` in the db-spec hash map or JDBC URL.
|
||||
* XTDB does not support `.getTableName()` so you always get unqualified column names in result sets.
|
||||
* The primary key on all tables is `_id` and it must be specified in all `INSERT` operations (no auto-generated keys).
|
||||
* That means that `next.jdbc.sql/get-by-id` requires the 5-argument call, so that you can specify the `pk-name` as `:_id` and provide an options map.
|
||||
* If you want to use `next.jdbc`'s built-in `datafy` / `nav` functionality, you need to explicitly specify `:schema-opts {:pk "_id"}` to override the default assumption of `id` as the primary key.
|
||||
* DML operations (`INSERT`, `UPDATE`, and `DELETE`) are essentially asynchronous in XTDB and therefore can not return an accurate `next.jdbc/update-count` (so it is always 0).
|
||||
* `INSERT` operations do not return the inserted row (like PostgreSQL does) nor even the provided `_id` primary key.
|
||||
* That means that the `next.jdbc.defer` namespace functions do not work well with XTDB.
|
||||
* `next.jdbc.sql/insert-multi!` returns an empty vector for XTDB (since `INSERT` operations do not return keys or update counts).
|
||||
* The `next.jdbc.result-set/*-kebab-maps` functions (and associated `next.jdbc/*-kebab-opts` option maps) cause leading `_` to be stripped from column names and cannot be used with XTDB (this is inherent in the underlying library that `next.jdbc` relies on -- you can of course write your own custom result set builder function to handle this).
|
||||
|
|
|
|||
|
|
@ -14,8 +14,3 @@ services:
|
|||
MSSQL_SA_PASSWORD: Str0ngP4ssw0rd
|
||||
ports:
|
||||
- "1433:1433"
|
||||
xtdb:
|
||||
image: ghcr.io/xtdb/xtdb:latest
|
||||
# pull_policy: always
|
||||
ports:
|
||||
- "5432:5432"
|
||||
|
|
|
|||
|
|
@ -5,30 +5,19 @@
|
|||
(defn- run-tests [env v]
|
||||
(when v (println "\nTesting Clojure" v))
|
||||
(let [{:keys [exit]}
|
||||
(p/shell {:extra-env env}
|
||||
"clojure"
|
||||
(str "-M"
|
||||
(p/shell {:extra-env env} "clojure" (str "-X"
|
||||
(when v (str ":" v))
|
||||
":test:runner"
|
||||
;; jdk21+ adds xtdb:
|
||||
(when (System/getenv "NEXT_JDBC_TEST_XTDB")
|
||||
":jdk21")
|
||||
;; to suppress native access warnings on JDK24:
|
||||
":jdk24")
|
||||
"--output" "dots")]
|
||||
":test"))]
|
||||
(when-not (zero? exit)
|
||||
(System/exit exit))))
|
||||
|
||||
(let [maria? (some #(= "maria" %) *command-line-args*)
|
||||
xtdb? (some #(= "xtdb" %) *command-line-args*)
|
||||
all? (some #(= "all" %) *command-line-args*)
|
||||
env
|
||||
(cond-> {"NEXT_JDBC_TEST_MSSQL" "yes"
|
||||
"NEXT_JDBC_TEST_MYSQL" "yes"
|
||||
"MSSQL_SA_PASSWORD" "Str0ngP4ssw0rd"}
|
||||
maria?
|
||||
(assoc "NEXT_JDBC_TEST_MARIADB" "yes")
|
||||
xtdb?
|
||||
(assoc "NEXT_JDBC_TEST_XTDB" "yes"))]
|
||||
(assoc "NEXT_JDBC_TEST_MARIADB" "yes"))]
|
||||
(doseq [v (if all? ["1.10" "1.11" "1.12"] [nil])]
|
||||
(run-tests env v)))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2018-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2018-2023 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc
|
||||
"The public API of the next generation java.jdbc library.
|
||||
|
|
@ -137,7 +137,6 @@
|
|||
* `sqlserver`, `mssql` -- `com.microsoft.sqlserver.jdbc.SQLServerDriver` -- `1433`
|
||||
* `timesten:client` -- `com.timesten.jdbc.TimesTenClientDriver`
|
||||
* `timesten:direct` -- `com.timesten.jdbc.TimesTenDriver`
|
||||
* `xtdb` -- `xtdb.jdbc.Driver` -- an XTDB wrapper around `postgresql`
|
||||
|
||||
For more details about `:dbtype` and `:classname` values, see:
|
||||
https://cljdoc.org/d/com.github.seancorfield/next.jdbc/CURRENT/api/next.jdbc.connection#dbtypes"
|
||||
|
|
@ -177,14 +176,6 @@
|
|||
[spec user password opts]
|
||||
(p/get-connection spec (assoc opts :user user :password password))))
|
||||
|
||||
(defn- ensure-sql-params [sql-params]
|
||||
(when-not (or (nil? sql-params)
|
||||
(and (seqable? sql-params)
|
||||
(or (empty? sql-params)
|
||||
(string? (first sql-params)))))
|
||||
(throw (ex-info "sql-params should be a vector containing a SQL string and any parameters"
|
||||
{:sql-params sql-params}))))
|
||||
|
||||
(defn prepare
|
||||
"Given a connection to a database, and a vector containing SQL and any
|
||||
parameters it needs, return a new `PreparedStatement`.
|
||||
|
|
@ -200,11 +191,9 @@
|
|||
be passed to prepare."
|
||||
(^java.sql.PreparedStatement
|
||||
[connection sql-params]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/prepare connection sql-params {}))
|
||||
(^java.sql.PreparedStatement
|
||||
[connection sql-params opts]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/prepare connection sql-params opts)))
|
||||
|
||||
(defn plan
|
||||
|
|
@ -242,12 +231,10 @@
|
|||
(p/-execute stmt [] {}))
|
||||
(^clojure.lang.IReduceInit
|
||||
[connectable sql-params]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/-execute connectable sql-params
|
||||
{:next.jdbc/sql-params sql-params}))
|
||||
(^clojure.lang.IReduceInit
|
||||
[connectable sql-params opts]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/-execute connectable sql-params
|
||||
(assoc opts :next.jdbc/sql-params sql-params))))
|
||||
|
||||
|
|
@ -264,11 +251,9 @@
|
|||
([stmt]
|
||||
(p/-execute-all stmt [] {}))
|
||||
([connectable sql-params]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/-execute-all connectable sql-params
|
||||
{:next.jdbc/sql-params sql-params}))
|
||||
([connectable sql-params opts]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/-execute-all connectable sql-params
|
||||
(assoc opts :next.jdbc/sql-params sql-params))))
|
||||
|
||||
|
|
@ -285,11 +270,9 @@
|
|||
([stmt]
|
||||
(p/-execute-one stmt [] {}))
|
||||
([connectable sql-params]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/-execute-one connectable sql-params
|
||||
{:next.jdbc/sql-params sql-params}))
|
||||
([connectable sql-params opts]
|
||||
(ensure-sql-params sql-params)
|
||||
(p/-execute-one connectable sql-params
|
||||
(assoc opts :next.jdbc/sql-params sql-params))))
|
||||
|
||||
|
|
@ -352,9 +335,9 @@
|
|||
result))))
|
||||
params)))
|
||||
([connectable sql param-groups opts]
|
||||
(when-not (string? sql)
|
||||
(throw (IllegalArgumentException. "execute-batch! requires a SQL string")))
|
||||
(if (instance? java.sql.Connection (p/unwrap connectable))
|
||||
(if (or (instance? java.sql.Connection connectable)
|
||||
(and (satisfies? p/Connectable connectable)
|
||||
(instance? java.sql.Connection (:connectable connectable))))
|
||||
(with-open [ps (prepare connectable [sql] opts)]
|
||||
(execute-batch! ps param-groups opts))
|
||||
(with-open [con (get-connection connectable)]
|
||||
|
|
@ -381,10 +364,13 @@
|
|||
executes the body, and automatically closes it for you."
|
||||
[[sym connectable] & body]
|
||||
(let [con-sym (vary-meta sym assoc :tag 'java.sql.Connection)]
|
||||
`(let [con-obj# ~connectable
|
||||
bare-con# (p/unwrap con-obj#)]
|
||||
(if (instance? java.sql.Connection bare-con#)
|
||||
((^{:once true} fn* [~con-sym] ~@body) bare-con#)
|
||||
`(let [con-obj# ~connectable]
|
||||
(cond (instance? java.sql.Connection con-obj#)
|
||||
((^{:once true} fn* [~con-sym] ~@body) con-obj#)
|
||||
(and (satisfies? p/Connectable con-obj#)
|
||||
(instance? java.sql.Connection (:connectable con-obj#)))
|
||||
((^{:once true} fn* [~con-sym] ~@body) (:connectable con-obj#))
|
||||
:else
|
||||
(with-open [con# (get-connection con-obj#)]
|
||||
((^{:once true} fn* [~con-sym] ~@body) con#))))))
|
||||
|
||||
|
|
@ -416,8 +402,12 @@
|
|||
with `on-connection`."
|
||||
[[sym connectable] & body]
|
||||
`(let [con-obj# ~connectable]
|
||||
(if (instance? java.sql.Connection (p/unwrap con-obj#))
|
||||
(cond (instance? java.sql.Connection con-obj#)
|
||||
((^{:once true} fn* [~sym] ~@body) con-obj#)
|
||||
(and (satisfies? p/Connectable con-obj#)
|
||||
(instance? java.sql.Connection (:connectable con-obj#)))
|
||||
((^{:once true} fn* [~sym] ~@body) con-obj#)
|
||||
:else
|
||||
(with-open [con# (get-connection con-obj#)]
|
||||
((^{:once true} fn* [~sym] ~@body)
|
||||
(with-options con# (:options con-obj# {})))))))
|
||||
|
|
@ -457,19 +447,12 @@
|
|||
"Returns true if `next.jdbc` has a currently active transaction in the
|
||||
current thread, else false.
|
||||
|
||||
With no arguments, tells you if any transaction is currently active.
|
||||
|
||||
With a `Connection` argument, tells you if a transaction is currently
|
||||
active on that specific connection.
|
||||
|
||||
Note: transactions are a convention of operations on a `Connection` so
|
||||
this predicate only reflects `next.jdbc/transact` and `next.jdbc/with-transaction`
|
||||
operations -- it does not reflect any other operations on a `Connection`,
|
||||
performed via JDBC interop directly."
|
||||
([]
|
||||
(boolean (seq @#'tx/*active-tx*)))
|
||||
([con]
|
||||
(contains? @#'tx/*active-tx* con)))
|
||||
[]
|
||||
@#'tx/*active-tx*)
|
||||
|
||||
(defn with-options
|
||||
"Given a connectable/transactable object and a set of (default) options
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2018-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2018-2024 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.connection
|
||||
"Standard implementations of `get-datasource` and `get-connection`.
|
||||
|
|
@ -130,9 +130,7 @@
|
|||
:host :none}
|
||||
"timesten:direct" {:classname "com.timesten.jdbc.TimesTenDriver"
|
||||
:dbname-separator ":dsn="
|
||||
:host :none}
|
||||
"xtdb" {:classname "xtdb.jdbc.Driver"
|
||||
:port 5432}})
|
||||
:host :none}})
|
||||
|
||||
(def ^:private driver-cache
|
||||
"An optimization for repeated calls to get-datasource, or for get-connection
|
||||
|
|
@ -374,12 +372,9 @@
|
|||
(defn- as-properties
|
||||
"Convert any seq of pairs to a `java.util.Properties` instance."
|
||||
^Properties [m]
|
||||
(let [p (Properties.)
|
||||
as-is (set (:next.jdbc/as-is-properties m))]
|
||||
(doseq [[k v] (dissoc m :next.jdbc/as-is-properties)]
|
||||
(if (contains? as-is k)
|
||||
(.put p (name k) v)
|
||||
(.setProperty p (name k) (str v))))
|
||||
(let [p (Properties.)]
|
||||
(doseq [[k v] m]
|
||||
(.setProperty p (name k) (str v)))
|
||||
p))
|
||||
|
||||
(defn uri->db-spec
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2020-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2020-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.datafy
|
||||
"This namespace provides datafication of several JDBC object types,
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.date-time
|
||||
"Optional namespace that extends `next.jdbc.prepare/SettableParameter`
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2020-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2020-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns ^:no-doc next.jdbc.default-options
|
||||
"Implementation of default options logic."
|
||||
|
|
@ -8,10 +8,6 @@
|
|||
|
||||
(defrecord DefaultOptions [connectable options])
|
||||
|
||||
(extend-protocol p/Wrapped
|
||||
DefaultOptions
|
||||
(unwrap [this] (p/unwrap (:connectable this))))
|
||||
|
||||
(extend-protocol p/Sourceable
|
||||
DefaultOptions
|
||||
(get-datasource [this]
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2020-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2020-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.plan
|
||||
"Some helper functions that make common operations with `next.jdbc/plan`
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2018-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2018-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.prepare
|
||||
"Mostly an implementation namespace for how `PreparedStatement` objects are
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2018-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2018-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.protocols
|
||||
"This is the extensible core of the next generation java.jdbc library.
|
||||
|
|
@ -63,15 +63,3 @@
|
|||
:extend-via-metadata true
|
||||
(-transact [this body-fn opts]
|
||||
"Run the `body-fn` inside a transaction."))
|
||||
|
||||
(defprotocol Wrapped
|
||||
"Protocol for (un)wrapping a `next.jdbc` connectable.
|
||||
|
||||
Implementations are provided for `Object` (identity) and `DefaultOptions`
|
||||
and SQLLogging."
|
||||
(unwrap [this]
|
||||
"Unwrap the connectable to get the underlying connectable."))
|
||||
|
||||
(extend-protocol Wrapped
|
||||
Object
|
||||
(unwrap [this] this))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2023 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.quoted
|
||||
"Provides functions for use with the `:table-fn` and `:column-fn` options
|
||||
|
|
|
|||
|
|
@ -58,9 +58,6 @@
|
|||
(mapv (fn [^Integer i] (keyword (.getColumnLabel rsmeta i)))
|
||||
(range 1 (inc (if rsmeta (.getColumnCount rsmeta) 0)))))
|
||||
|
||||
(defn- validate [expr ^String msg]
|
||||
(when-not expr (throw (IllegalArgumentException. msg))))
|
||||
|
||||
(defn get-modified-column-names
|
||||
"Given `ResultSetMetaData`, return a vector of modified column names, each
|
||||
qualified by the table from which it came.
|
||||
|
|
@ -69,8 +66,8 @@
|
|||
[^ResultSetMetaData rsmeta opts]
|
||||
(let [qf (:qualifier-fn opts)
|
||||
lf (:label-fn opts)]
|
||||
(validate qf ":qualifier-fn is required")
|
||||
(validate lf ":label-fn is required")
|
||||
(assert qf ":qualifier-fn is required")
|
||||
(assert lf ":label-fn is required")
|
||||
(mapv (fn [^Integer i]
|
||||
(if-let [q (some-> (get-table-name rsmeta i) (qf) (not-empty))]
|
||||
(keyword q (-> (.getColumnLabel rsmeta i) (lf)))
|
||||
|
|
@ -84,7 +81,7 @@
|
|||
Requires the `:label-fn` option."
|
||||
[^ResultSetMetaData rsmeta opts]
|
||||
(let [lf (:label-fn opts)]
|
||||
(validate lf ":label-fn is required")
|
||||
(assert lf ":label-fn is required")
|
||||
(mapv (fn [^Integer i] (keyword (lf (.getColumnLabel rsmeta i))))
|
||||
(range 1 (inc (if rsmeta (.getColumnCount rsmeta) 0))))))
|
||||
|
||||
|
|
@ -278,10 +275,6 @@
|
|||
:qualifier-fn ->kebab-case
|
||||
:label-fn ->kebab-case)))
|
||||
|
||||
(comment
|
||||
(->kebab-case "_id") ;;=> "id"!!
|
||||
)
|
||||
|
||||
(defn as-unqualified-kebab-maps
|
||||
"Given a `ResultSet` and options, return a `RowBuilder` / `ResultSetBuilder`
|
||||
that produces bare vectors of hash map rows, with simple, kebab-case keys."
|
||||
|
|
@ -323,7 +316,7 @@
|
|||
"An example column-reader that still uses `.getObject` but expands CLOB
|
||||
columns into strings."
|
||||
[^ResultSet rs ^ResultSetMetaData _ ^Integer i]
|
||||
(let [value (.getObject rs i)]
|
||||
(when-let [value (.getObject rs i)]
|
||||
(cond-> value
|
||||
(instance? Clob value)
|
||||
(clob->string))))
|
||||
|
|
@ -493,9 +486,10 @@
|
|||
(metadata-preserving) operations on it."
|
||||
[^ResultSet rs opts]
|
||||
(let [builder (delay ((get opts :builder-fn as-maps) rs opts))
|
||||
name-fn (:name-fn opts name)
|
||||
name-fn (if (contains? opts :column-fn)
|
||||
(comp (get opts :column-fn) name)
|
||||
name)]
|
||||
(comp (get opts :column-fn) name-fn)
|
||||
name-fn)]
|
||||
(reify
|
||||
|
||||
MapifiedResultSet
|
||||
|
|
@ -958,14 +952,14 @@
|
|||
(reify
|
||||
clojure.lang.IReduceInit
|
||||
(reduce [_ f init]
|
||||
(reduce-stmt this f init (merge {:return-keys true} opts)))
|
||||
(reduce-stmt this f init (assoc opts :return-keys true)))
|
||||
r/CollFold
|
||||
(coll-fold [_ n combinef reducef]
|
||||
(fold-stmt this n combinef reducef (.getConnection this)
|
||||
(merge {:return-keys true} opts)))
|
||||
(assoc opts :return-keys true)))
|
||||
(toString [_] "`IReduceInit` from `plan` -- missing reduction?")))
|
||||
(-execute-one [this _ opts]
|
||||
(if-let [rs (stmt->result-set this (merge {:return-keys true} opts))]
|
||||
(if-let [rs (stmt->result-set this (assoc opts :return-keys true))]
|
||||
(let [builder-fn (get opts :builder-fn as-maps)
|
||||
builder (builder-fn rs opts)]
|
||||
(when (.next rs)
|
||||
|
|
@ -976,16 +970,16 @@
|
|||
(if (:multi-rs opts)
|
||||
(loop [go (.execute this) acc []]
|
||||
(if-let [rs (stmt->result-set-update-count
|
||||
(.getConnection this) this go (merge {:return-keys true} opts))]
|
||||
(.getConnection this) this go (assoc opts :return-keys true))]
|
||||
(recur (.getMoreResults this) (conj acc rs))
|
||||
acc))
|
||||
(if-let [rs (stmt->result-set this (merge {:return-keys true} opts))]
|
||||
(if-let [rs (stmt->result-set this (assoc opts :return-keys true))]
|
||||
(datafiable-result-set rs (.getConnection this) opts)
|
||||
[{:next.jdbc/update-count (.getUpdateCount this)}])))
|
||||
|
||||
java.sql.Statement
|
||||
(-execute [this sql-params opts]
|
||||
(validate (= 1 (count sql-params))
|
||||
(assert (= 1 (count sql-params))
|
||||
"Parameters cannot be provided when executing a non-prepared Statement")
|
||||
(reify
|
||||
clojure.lang.IReduceInit
|
||||
|
|
@ -997,7 +991,7 @@
|
|||
(.getConnection this) opts))
|
||||
(toString [_] "`IReduceInit` from `plan` -- missing reduction?")))
|
||||
(-execute-one [this sql-params opts]
|
||||
(validate (= 1 (count sql-params))
|
||||
(assert (= 1 (count sql-params))
|
||||
"Parameters cannot be provided when executing a non-prepared Statement")
|
||||
(if-let [rs (stmt-sql->result-set this (first sql-params))]
|
||||
(let [builder-fn (get opts :builder-fn as-maps)
|
||||
|
|
@ -1007,12 +1001,12 @@
|
|||
(.getConnection this) opts)))
|
||||
{:next.jdbc/update-count (.getUpdateCount this)}))
|
||||
(-execute-all [this sql-params opts]
|
||||
(validate (= 1 (count sql-params))
|
||||
(assert (= 1 (count sql-params))
|
||||
"Parameters cannot be provided when executing a non-prepared Statement")
|
||||
(if (:multi-rs opts)
|
||||
(loop [go (.execute this (first sql-params)) acc []]
|
||||
(if-let [rs (stmt->result-set-update-count
|
||||
(.getConnection this) this go (merge {:return-keys true} opts))]
|
||||
(.getConnection this) this go (assoc opts :return-keys true))]
|
||||
(recur (.getMoreResults this) (conj acc rs))
|
||||
acc))
|
||||
(if-let [rs (stmt-sql->result-set this (first sql-params))]
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2023 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.specs
|
||||
"Specs for the core API of next.jdbc.
|
||||
|
|
@ -110,7 +110,7 @@
|
|||
:opts (s/? ::opts-map)))
|
||||
|
||||
(s/fdef jdbc/prepare
|
||||
:args (s/cat :connection ::proto-connectable
|
||||
:args (s/cat :connection ::connection
|
||||
:sql-params ::sql-params
|
||||
:opts (s/? ::opts-map)))
|
||||
|
||||
|
|
|
|||
|
|
@ -20,11 +20,20 @@
|
|||
;; characters in table and column names when building SQL:
|
||||
(def ^:private ^:dynamic *allow-suspicious-entities* false)
|
||||
|
||||
(defn qualified-name
|
||||
"Like `clojure.core/name` but preserves the qualifier, if any.
|
||||
|
||||
Intended for use with `:name-fn`, instead of the default `name`."
|
||||
[k]
|
||||
(cond-> (str k)
|
||||
(keyword? k)
|
||||
(subs 1)))
|
||||
|
||||
(defn- safe-name
|
||||
"A wrapper for `name` that throws an exception if the
|
||||
resulting string looks 'suspicious' as a table or column."
|
||||
[k]
|
||||
(let [entity (name k)
|
||||
[k name-fn]
|
||||
(let [entity (name-fn k)
|
||||
suspicious #";"]
|
||||
(when-not *allow-suspicious-entities*
|
||||
(when (re-find suspicious entity)
|
||||
|
|
@ -48,17 +57,18 @@
|
|||
as simple aliases, e.g., `[:foo :bar]`, or as expressions with an
|
||||
alias, e.g., `[\"count(*)\" :total]`."
|
||||
[cols opts]
|
||||
(let [col-fn (:column-fn opts identity)]
|
||||
(let [col-fn (:column-fn opts identity)
|
||||
name-fn (:name-fn opts name)]
|
||||
(str/join ", " (map (fn [raw]
|
||||
(if (vector? raw)
|
||||
(if (keyword? (first raw))
|
||||
(str (col-fn (safe-name (first raw)))
|
||||
(str (col-fn (safe-name (first raw) name-fn))
|
||||
" AS "
|
||||
(col-fn (safe-name (second raw))))
|
||||
(col-fn (safe-name (second raw) name-fn)))
|
||||
(str (first raw)
|
||||
" AS "
|
||||
(col-fn (safe-name (second raw)))))
|
||||
(col-fn (safe-name raw))))
|
||||
(col-fn (safe-name (second raw) name-fn))))
|
||||
(col-fn (safe-name raw name-fn))))
|
||||
cols))))
|
||||
|
||||
|
||||
|
|
@ -70,9 +80,6 @@
|
|||
[key-map opts]
|
||||
(as-cols (keys key-map) opts))
|
||||
|
||||
(defn- validate [expr ^String msg]
|
||||
(when-not expr (throw (IllegalArgumentException. msg))))
|
||||
|
||||
(defn by-keys
|
||||
"Given a hash map of column names and values and a clause type
|
||||
(`:set`, `:where`), return a vector of a SQL clause and its parameters.
|
||||
|
|
@ -80,15 +87,16 @@
|
|||
Applies any `:column-fn` supplied in the options."
|
||||
[key-map clause opts]
|
||||
(let [entity-fn (:column-fn opts identity)
|
||||
name-fn (:name-fn opts name)
|
||||
[where params] (reduce-kv (fn [[conds params] k v]
|
||||
(let [e (entity-fn (safe-name k))]
|
||||
(let [e (entity-fn (safe-name k name-fn))]
|
||||
(if (and (= :where clause) (nil? v))
|
||||
[(conj conds (str e " IS NULL")) params]
|
||||
[(conj conds (str e " = ?")) (conj params v)])))
|
||||
[[] []]
|
||||
key-map)]
|
||||
(validate (seq where) "key-map may not be empty")
|
||||
(into [(str (str/upper-case (safe-name clause)) " "
|
||||
(assert (seq where) "key-map may not be empty")
|
||||
(into [(str (str/upper-case (safe-name clause name-fn)) " "
|
||||
(str/join (if (= :where clause) " AND " ", ") where))]
|
||||
params)))
|
||||
|
||||
|
|
@ -103,11 +111,12 @@
|
|||
`DELETE ...` statement."
|
||||
[table where-params opts]
|
||||
(let [entity-fn (:table-fn opts identity)
|
||||
name-fn (:name-fn opts name)
|
||||
where-params (if (map? where-params)
|
||||
(by-keys where-params :where opts)
|
||||
(into [(str "WHERE " (first where-params))]
|
||||
(rest where-params)))]
|
||||
(into [(str "DELETE FROM " (entity-fn (safe-name table))
|
||||
(into [(str "DELETE FROM " (entity-fn (safe-name table name-fn))
|
||||
" " (first where-params)
|
||||
(when-let [suffix (:suffix opts)]
|
||||
(str " " suffix)))]
|
||||
|
|
@ -123,10 +132,11 @@
|
|||
`INSERT ...` statement."
|
||||
[table key-map opts]
|
||||
(let [entity-fn (:table-fn opts identity)
|
||||
name-fn (:name-fn opts name)
|
||||
params (as-keys key-map opts)
|
||||
places (as-? key-map opts)]
|
||||
(validate (seq key-map) "key-map may not be empty")
|
||||
(into [(str "INSERT INTO " (entity-fn (safe-name table))
|
||||
(assert (seq key-map) "key-map may not be empty")
|
||||
(into [(str "INSERT INTO " (entity-fn (safe-name table name-fn))
|
||||
" (" params ")"
|
||||
" VALUES (" places ")"
|
||||
(when-let [suffix (:suffix opts)]
|
||||
|
|
@ -147,16 +157,17 @@
|
|||
If `:suffix` is provided in `opts`, that string is appended to the
|
||||
`INSERT ...` statement."
|
||||
[table cols rows opts]
|
||||
(validate (apply = (count cols) (map count rows))
|
||||
(assert (apply = (count cols) (map count rows))
|
||||
"column counts are not consistent across cols and rows")
|
||||
;; to avoid generating bad SQL
|
||||
(validate (seq cols) "cols may not be empty")
|
||||
(validate (seq rows) "rows may not be empty")
|
||||
(assert (seq cols) "cols may not be empty")
|
||||
(assert (seq rows) "rows may not be empty")
|
||||
(let [table-fn (:table-fn opts identity)
|
||||
name-fn (:name-fn opts name)
|
||||
batch? (:batch opts)
|
||||
params (as-cols cols opts)
|
||||
places (as-? (first rows) opts)]
|
||||
(into [(str "INSERT INTO " (table-fn (safe-name table))
|
||||
(into [(str "INSERT INTO " (table-fn (safe-name table name-fn))
|
||||
" (" params ")"
|
||||
" VALUES "
|
||||
(if batch?
|
||||
|
|
@ -177,12 +188,13 @@
|
|||
"Given a column name, or a pair of column name and direction,
|
||||
return the sub-clause for addition to `ORDER BY`."
|
||||
[col opts]
|
||||
(let [entity-fn (:column-fn opts identity)]
|
||||
(let [entity-fn (:column-fn opts identity)
|
||||
name-fn (:name-fn opts name)]
|
||||
(cond (keyword? col)
|
||||
(entity-fn (safe-name col))
|
||||
(entity-fn (safe-name col name-fn))
|
||||
|
||||
(and (vector? col) (= 2 (count col)) (keyword? (first col)))
|
||||
(str (entity-fn (safe-name (first col)))
|
||||
(str (entity-fn (safe-name (first col) name-fn))
|
||||
" "
|
||||
(or (get {:asc "ASC" :desc "DESC"} (second col))
|
||||
(throw (IllegalArgumentException.
|
||||
|
|
@ -198,7 +210,7 @@
|
|||
[order-by opts]
|
||||
(when-not (vector? order-by)
|
||||
(throw (IllegalArgumentException. ":order-by must be a vector")))
|
||||
(validate (seq order-by) ":order-by may not be empty")
|
||||
(assert (seq order-by) ":order-by may not be empty")
|
||||
(str "ORDER BY "
|
||||
(str/join ", " (map #(for-order-col % opts) order-by))))
|
||||
|
||||
|
|
@ -219,6 +231,7 @@
|
|||
`SELECT ...` statement."
|
||||
[table where-params opts]
|
||||
(let [entity-fn (:table-fn opts identity)
|
||||
name-fn (:name-fn opts name)
|
||||
where-params (cond (map? where-params)
|
||||
(by-keys where-params :where opts)
|
||||
(= :all where-params)
|
||||
|
|
@ -239,7 +252,7 @@
|
|||
(if-let [cols (seq (:columns opts))]
|
||||
(as-cols cols opts)
|
||||
"*")
|
||||
" FROM " (entity-fn (safe-name table))
|
||||
" FROM " (entity-fn (safe-name table name-fn))
|
||||
(when-let [clause (first where-params)]
|
||||
(str " " clause))
|
||||
(when-let [order-by (:order-by opts)]
|
||||
|
|
@ -268,12 +281,13 @@
|
|||
`UPDATE ...` statement."
|
||||
[table key-map where-params opts]
|
||||
(let [entity-fn (:table-fn opts identity)
|
||||
name-fn (:name-fn opts name)
|
||||
set-params (by-keys key-map :set opts)
|
||||
where-params (if (map? where-params)
|
||||
(by-keys where-params :where opts)
|
||||
(into [(str "WHERE " (first where-params))]
|
||||
(rest where-params)))]
|
||||
(-> [(str "UPDATE " (entity-fn (safe-name table))
|
||||
(-> [(str "UPDATE " (entity-fn (safe-name table name-fn))
|
||||
" " (first set-params)
|
||||
" " (first where-params)
|
||||
(when-let [suffix (:suffix opts)]
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2021-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2021-2023 Sean Corfield, all rights reserved
|
||||
|
||||
(ns ^:no-doc next.jdbc.sql-logging
|
||||
"Implementation of sql-logging logic."
|
||||
|
|
@ -8,10 +8,6 @@
|
|||
|
||||
(defrecord SQLLogging [connectable sql-logger result-logger options])
|
||||
|
||||
(extend-protocol p/Wrapped
|
||||
SQLLogging
|
||||
(unwrap [this] (p/unwrap (:connectable this))))
|
||||
|
||||
(extend-protocol p/Sourceable
|
||||
SQLLogging
|
||||
(get-datasource [this]
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2018-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2018-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.transaction
|
||||
"Implementation of SQL transaction logic.
|
||||
|
|
@ -38,7 +38,7 @@
|
|||
:allow)
|
||||
|
||||
(defonce ^:private ^:dynamic ^{:doc "Used to detect nested transactions."}
|
||||
*active-tx* #{})
|
||||
*active-tx* false)
|
||||
|
||||
(def ^:private isolation-levels
|
||||
"Transaction isolation levels."
|
||||
|
|
@ -112,26 +112,17 @@
|
|||
(.setReadOnly con old-readonly)
|
||||
(catch Exception _))))))))
|
||||
|
||||
(defn- raw-connection ^Connection [^Connection con]
|
||||
(try ; because some drivers do not implement this :(
|
||||
(if (.isWrapperFor con Connection)
|
||||
(.unwrap con Connection)
|
||||
con)
|
||||
(catch Throwable _ ; to catch AbstractMethodError :(
|
||||
con)))
|
||||
|
||||
(extend-protocol p/Transactable
|
||||
java.sql.Connection
|
||||
(-transact [this body-fn opts]
|
||||
(let [raw (raw-connection this)]
|
||||
(cond
|
||||
(and (not (contains? *active-tx* raw)) (= :ignore *nested-tx*))
|
||||
(and (not *active-tx*) (= :ignore *nested-tx*))
|
||||
;; #245 do not lock when in c.j.j compatibility mode:
|
||||
(binding [*active-tx* (conj *active-tx* raw)]
|
||||
(binding [*active-tx* true]
|
||||
(transact* this body-fn opts))
|
||||
(or (not (contains? *active-tx* raw)) (= :allow *nested-tx*))
|
||||
(or (not *active-tx*) (= :allow *nested-tx*))
|
||||
(locking this
|
||||
(binding [*active-tx* (conj *active-tx* raw)]
|
||||
(binding [*active-tx* true]
|
||||
(transact* this body-fn opts)))
|
||||
(= :ignore *nested-tx*)
|
||||
(body-fn this)
|
||||
|
|
@ -141,15 +132,23 @@
|
|||
(throw (IllegalArgumentException.
|
||||
(str "*nested-tx* ("
|
||||
*nested-tx*
|
||||
") was not :allow, :ignore, or :prohibit"))))))
|
||||
") was not :allow, :ignore, or :prohibit")))))
|
||||
javax.sql.DataSource
|
||||
(-transact [this body-fn opts]
|
||||
(cond (or (not *active-tx*) (= :allow *nested-tx*))
|
||||
(binding [*active-tx* true]
|
||||
(with-open [con (p/get-connection this opts)]
|
||||
;; this connection is assumed unique so we do not need the active-tx check:
|
||||
(let [raw (raw-connection con)]
|
||||
;; we don't lock either, per #293:
|
||||
(binding [*active-tx* (conj *active-tx* raw)]
|
||||
(transact* con body-fn opts)))))
|
||||
(transact* con body-fn opts)))
|
||||
(= :ignore *nested-tx*)
|
||||
(with-open [con (p/get-connection this opts)]
|
||||
(body-fn con))
|
||||
(= :prohibit *nested-tx*)
|
||||
(throw (IllegalStateException. "Nested transactions are prohibited"))
|
||||
:else
|
||||
(throw (IllegalArgumentException.
|
||||
(str "*nested-tx* ("
|
||||
*nested-tx*
|
||||
") was not :allow, :ignore, or :prohibit")))))
|
||||
Object
|
||||
(-transact [this body-fn opts]
|
||||
(p/-transact (p/get-datasource this) body-fn opts)))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.connection-string-test
|
||||
"Tests for the main hash map spec to JDBC URL logic and the get-datasource
|
||||
|
|
@ -7,17 +7,15 @@
|
|||
At some point, the datasource/connection tests should probably be extended
|
||||
to accept EDN specs from an external source (environment variables?)."
|
||||
(:require [clojure.string :as str]
|
||||
[lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing]]
|
||||
[clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc.connection :as c]
|
||||
[next.jdbc.protocols :as p]
|
||||
[next.jdbc.specs :as specs]
|
||||
[next.jdbc.test-fixtures :refer [db with-test-db]])
|
||||
(:import [java.util Properties]))
|
||||
[next.jdbc.test-fixtures :refer [with-test-db db]]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
|
|
@ -41,16 +39,3 @@
|
|||
(when (and user password)
|
||||
(with-open [con (p/get-connection ds {})]
|
||||
(is (instance? java.sql.Connection con)))))))
|
||||
|
||||
(deftest property-tests
|
||||
(is (string? (.getProperty ^Properties (#'c/as-properties {:foo [42]}) "foo")))
|
||||
(is (string? (.get ^Properties (#'c/as-properties {:foo [42]}) "foo")))
|
||||
(is (vector? (.get ^Properties (#'c/as-properties
|
||||
{:foo [42]
|
||||
:next.jdbc/as-is-properties [:foo]})
|
||||
"foo")))
|
||||
;; because .getProperty drops non-string values!
|
||||
(is (nil? (.getProperty ^Properties (#'c/as-properties
|
||||
{:foo [42]
|
||||
:next.jdbc/as-is-properties [:foo]})
|
||||
"foo"))))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.connection-test
|
||||
"Tests for the main hash map spec to JDBC URL logic and the get-datasource
|
||||
|
|
@ -7,7 +7,7 @@
|
|||
At some point, the datasource/connection tests should probably be extended
|
||||
to accept EDN specs from an external source (environment variables?)."
|
||||
(:require [clojure.string :as str]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing]]
|
||||
[clojure.test :refer [deftest is testing]]
|
||||
[next.jdbc.connection :as c]
|
||||
[next.jdbc.protocols :as p])
|
||||
(:import (com.zaxxer.hikari HikariDataSource)
|
||||
|
|
|
|||
|
|
@ -1,22 +1,21 @@
|
|||
;; copyright (c) 2020-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2020-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.datafy-test
|
||||
"Tests for the datafy extensions over JDBC types."
|
||||
(:require [clojure.datafy :as d]
|
||||
[clojure.set :as set]
|
||||
[lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing]]
|
||||
[clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc :as jdbc]
|
||||
[next.jdbc.datafy]
|
||||
[next.jdbc.result-set :as rs]
|
||||
[next.jdbc.specs :as specs]
|
||||
[next.jdbc.test-fixtures
|
||||
:refer [db derby? ds jtds? mysql? postgres? sqlite? with-test-db
|
||||
xtdb?]]))
|
||||
:refer [with-test-db db ds
|
||||
derby? jtds? mysql? postgres? sqlite?]]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
|
|
@ -84,26 +83,6 @@
|
|||
:rowIdLifetime/exception))
|
||||
(postgres?) (-> (disj :rowIdLifetime)
|
||||
(conj :rowIdLifetime/exception))
|
||||
(xtdb?) (-> (disj :clientInfoProperties
|
||||
:defaultTransactionIsolation
|
||||
:maxCatalogNameLength
|
||||
:maxColumnNameLength
|
||||
:maxCursorNameLength
|
||||
:maxProcedureNameLength
|
||||
:maxSchemaNameLength
|
||||
:maxTableNameLength
|
||||
:maxUserNameLength
|
||||
:rowIdLifetime)
|
||||
(conj :clientInfoProperties/exception
|
||||
:defaultTransactionIsolation/exception
|
||||
:maxCatalogNameLength/exception
|
||||
:maxColumnNameLength/exception
|
||||
:maxCursorNameLength/exception
|
||||
:maxProcedureNameLength/exception
|
||||
:maxSchemaNameLength/exception
|
||||
:maxTableNameLength/exception
|
||||
:maxUserNameLength/exception
|
||||
:rowIdLifetime/exception))
|
||||
(sqlite?) (-> (disj :clientInfoProperties :rowIdLifetime)
|
||||
(conj :clientInfoProperties/exception
|
||||
:rowIdLifetime/exception)))
|
||||
|
|
@ -118,8 +97,7 @@
|
|||
(let [data (d/datafy (.getMetaData con))]
|
||||
(doseq [k (cond-> #{:catalogs :clientInfoProperties :schemas :tableTypes :typeInfo}
|
||||
(jtds?) (disj :clientInfoProperties)
|
||||
(sqlite?) (disj :clientInfoProperties)
|
||||
(xtdb?) (disj :clientInfoProperties))]
|
||||
(sqlite?) (disj :clientInfoProperties))]
|
||||
(let [rs (d/nav data k nil)]
|
||||
(is (vector? rs))
|
||||
(is (every? map? rs))))))))
|
||||
|
|
@ -144,5 +122,4 @@
|
|||
(.execute ps)
|
||||
(.getResultSet ps)
|
||||
(.close ps)
|
||||
(.close con)
|
||||
)
|
||||
(.close con))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.date-time-test
|
||||
"Date/time parameter auto-conversion tests.
|
||||
|
|
@ -6,22 +6,21 @@
|
|||
These tests contain no assertions. Without requiring `next.jdbc.date-time`
|
||||
several of the `insert` operations would throw exceptions for some databases
|
||||
so the test here just checks those operations 'succeed'."
|
||||
(:require [lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest]]
|
||||
(:require [clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc :as jdbc]
|
||||
[next.jdbc.date-time] ; to extend SettableParameter to date/time
|
||||
[next.jdbc.test-fixtures :refer [with-test-db ds
|
||||
mssql? xtdb?]]
|
||||
[next.jdbc.specs :as specs]))
|
||||
[next.jdbc.test-fixtures :refer [with-test-db db ds
|
||||
mssql?]]
|
||||
[next.jdbc.specs :as specs])
|
||||
(:import (java.sql ResultSet)))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
(deftest issue-73
|
||||
(when-not (xtdb?)
|
||||
(try
|
||||
(jdbc/execute-one! (ds) ["drop table fruit_time"])
|
||||
(catch Throwable _))
|
||||
|
|
@ -47,4 +46,4 @@
|
|||
(jdbc/execute-one! (ds) ["insert into fruit_time (id, deadline) values (?,?)" 1 (java.util.Date.)])
|
||||
(jdbc/execute-one! (ds) ["insert into fruit_time (id, deadline) values (?,?)" 2 (java.time.Instant/now)])
|
||||
(jdbc/execute-one! (ds) ["insert into fruit_time (id, deadline) values (?,?)" 3 (java.time.LocalDate/now)])
|
||||
(jdbc/execute-one! (ds) ["insert into fruit_time (id, deadline) values (?,?)" 4 (java.time.LocalDateTime/now)])))
|
||||
(jdbc/execute-one! (ds) ["insert into fruit_time (id, deadline) values (?,?)" 4 (java.time.LocalDateTime/now)]))
|
||||
|
|
|
|||
|
|
@ -1,8 +1,9 @@
|
|||
;; copyright (c) 2020-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2020-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.default-options-test
|
||||
"Stub test namespace for default options. Nothing can really be tested
|
||||
at this level tho'..."
|
||||
(:require [next.jdbc.default-options]))
|
||||
(:require [clojure.test :refer [deftest is testing]]
|
||||
[next.jdbc.default-options :refer :all]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2024-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2024 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.defer-test
|
||||
"The idea behind the next.jdbc.defer namespace is to provide a
|
||||
|
|
@ -11,19 +11,17 @@
|
|||
describes a series of SQL operations to be performed, that
|
||||
are held in a dynamic var, and that can be executed at a
|
||||
later time, in a transaction."
|
||||
(:require [lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing]]
|
||||
(:require [clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc :as jdbc]
|
||||
[next.jdbc.defer :as sut]
|
||||
[next.jdbc.test-fixtures
|
||||
:refer [ds with-test-db xtdb?]]))
|
||||
:refer [ds with-test-db]]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(deftest basic-test
|
||||
(when-not (xtdb?)
|
||||
(testing "data structures"
|
||||
(is (= [{:sql-p ["INSERT INTO foo (name) VALUES (?)" "Sean"]
|
||||
:key-fn :GENERATED_KEY
|
||||
|
|
@ -52,4 +50,4 @@
|
|||
(catch Exception _ :failed))))
|
||||
(is (= 0 (count (jdbc/execute! (ds)
|
||||
["select * from fruit where name = ?"
|
||||
"Grapefruit"]))))))))
|
||||
"Grapefruit"])))))))
|
||||
|
|
|
|||
|
|
@ -1,25 +1,23 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.optional-test
|
||||
"Test namespace for the optional builder functions."
|
||||
(:require [clojure.string :as str]
|
||||
[lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing]]
|
||||
[clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc.optional :as opt]
|
||||
[next.jdbc.protocols :as p]
|
||||
[next.jdbc.test-fixtures :refer [col-kw column default-options ds index
|
||||
with-test-db]])
|
||||
(:import
|
||||
(java.sql ResultSet ResultSetMetaData)))
|
||||
[next.jdbc.test-fixtures :refer [with-test-db ds column
|
||||
default-options]])
|
||||
(:import (java.sql ResultSet ResultSetMetaData)))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(deftest test-map-row-builder
|
||||
(testing "default row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 1]
|
||||
["select * from fruit where id = ?" 1]
|
||||
(assoc (default-options)
|
||||
:builder-fn opt/as-maps))]
|
||||
(is (map? row))
|
||||
|
|
@ -28,7 +26,7 @@
|
|||
(is (= "Apple" ((column :FRUIT/NAME) row)))))
|
||||
(testing "unqualified row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 2]
|
||||
["select * from fruit where id = ?" 2]
|
||||
{:builder-fn opt/as-unqualified-maps})]
|
||||
(is (map? row))
|
||||
(is (not (contains? row (column :COST))))
|
||||
|
|
@ -36,23 +34,23 @@
|
|||
(is (= "Banana" ((column :NAME) row)))))
|
||||
(testing "lower-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 3]
|
||||
["select * from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn opt/as-lower-maps))]
|
||||
(is (map? row))
|
||||
(is (not (contains? row (col-kw :fruit/appearance))))
|
||||
(is (= 3 ((col-kw :fruit/id) row)))
|
||||
(is (= "Peach" ((col-kw :fruit/name) row)))))
|
||||
(is (not (contains? row :fruit/appearance)))
|
||||
(is (= 3 (:fruit/id row)))
|
||||
(is (= "Peach" (:fruit/name row)))))
|
||||
(testing "unqualified lower-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 4]
|
||||
["select * from fruit where id = ?" 4]
|
||||
{:builder-fn opt/as-unqualified-lower-maps})]
|
||||
(is (map? row))
|
||||
(is (= 4 ((col-kw :id) row)))
|
||||
(is (= "Orange" ((col-kw :name) row)))))
|
||||
(is (= 4 (:id row)))
|
||||
(is (= "Orange" (:name row)))))
|
||||
(testing "custom row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 3]
|
||||
["select * from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn opt/as-modified-maps
|
||||
:label-fn str/lower-case
|
||||
|
|
@ -63,13 +61,13 @@
|
|||
(is (= "Peach" ((column :FRUIT/name) row))))))
|
||||
|
||||
(defn- default-column-reader
|
||||
[^ResultSet rs ^ResultSetMetaData _ ^Integer i]
|
||||
[^ResultSet rs ^ResultSetMetaData rsmeta ^Integer i]
|
||||
(.getObject rs i))
|
||||
|
||||
(deftest test-map-row-adapter
|
||||
(testing "default row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 1]
|
||||
["select * from fruit where id = ?" 1]
|
||||
(assoc (default-options)
|
||||
:builder-fn (opt/as-maps-adapter
|
||||
opt/as-maps
|
||||
|
|
@ -80,7 +78,7 @@
|
|||
(is (= "Apple" ((column :FRUIT/NAME) row)))))
|
||||
(testing "unqualified row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 2]
|
||||
["select * from fruit where id = ?" 2]
|
||||
{:builder-fn (opt/as-maps-adapter
|
||||
opt/as-unqualified-maps
|
||||
default-column-reader)})]
|
||||
|
|
@ -90,27 +88,27 @@
|
|||
(is (= "Banana" ((column :NAME) row)))))
|
||||
(testing "lower-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 3]
|
||||
["select * from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn (opt/as-maps-adapter
|
||||
opt/as-lower-maps
|
||||
default-column-reader)))]
|
||||
(is (map? row))
|
||||
(is (not (contains? row (col-kw :fruit/appearance))))
|
||||
(is (= 3 ((col-kw :fruit/id) row)))
|
||||
(is (= "Peach" ((col-kw :fruit/name) row)))))
|
||||
(is (not (contains? row :fruit/appearance)))
|
||||
(is (= 3 (:fruit/id row)))
|
||||
(is (= "Peach" (:fruit/name row)))))
|
||||
(testing "unqualified lower-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 4]
|
||||
["select * from fruit where id = ?" 4]
|
||||
{:builder-fn (opt/as-maps-adapter
|
||||
opt/as-unqualified-lower-maps
|
||||
default-column-reader)})]
|
||||
(is (map? row))
|
||||
(is (= 4 ((col-kw :id) row)))
|
||||
(is (= "Orange" ((col-kw :name) row)))))
|
||||
(is (= 4 (:id row)))
|
||||
(is (= "Orange" (:name row)))))
|
||||
(testing "custom row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 3]
|
||||
["select * from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn (opt/as-maps-adapter
|
||||
opt/as-modified-maps
|
||||
|
|
|
|||
|
|
@ -1,75 +1,72 @@
|
|||
;; copyright (c) 2020-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2020-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.plan-test
|
||||
"Tests for the plan helpers."
|
||||
(:require [lazytest.core :refer [around]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is]]
|
||||
(:require [clojure.test :refer [deftest is use-fixtures]]
|
||||
[next.jdbc.plan :as plan]
|
||||
[next.jdbc.specs :as specs]
|
||||
[next.jdbc.test-fixtures
|
||||
:refer [with-test-db ds col-kw index]]
|
||||
:refer [with-test-db ds]]
|
||||
[clojure.string :as str]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
;; around each test because of the folding tests using 1,000 rows
|
||||
(use-fixtures :each with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
(deftest select-one!-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(is (= {(col-kw :id) 1}
|
||||
(plan/select-one! (ds) [(col-kw :id)] [(str "select * from fruit order by " (index))])))
|
||||
(is (= {:id 1}
|
||||
(plan/select-one! (ds) [:id] ["select * from fruit order by id"])))
|
||||
(is (= 1
|
||||
(plan/select-one! (ds) (col-kw :id) [(str "select * from fruit order by " (index))])))
|
||||
(plan/select-one! (ds) :id ["select * from fruit order by id"])))
|
||||
(is (= "Banana"
|
||||
(plan/select-one! (ds) :name [(str "select * from fruit where " (index) " = ?") 2])))
|
||||
(plan/select-one! (ds) :name ["select * from fruit where id = ?" 2])))
|
||||
(is (= [1 "Apple"]
|
||||
(plan/select-one! (ds) (juxt (col-kw :id) :name)
|
||||
[(str "select * from fruit order by " (index))])))
|
||||
(is (= {(col-kw :id) 1 :name "Apple"}
|
||||
(plan/select-one! (ds) #(select-keys % [(col-kw :id) :name])
|
||||
[(str "select * from fruit order by " (index))]))))
|
||||
(plan/select-one! (ds) (juxt :id :name)
|
||||
["select * from fruit order by id"])))
|
||||
(is (= {:id 1 :name "Apple"}
|
||||
(plan/select-one! (ds) #(select-keys % [:id :name])
|
||||
["select * from fruit order by id"]))))
|
||||
|
||||
(deftest select-vector-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(is (= [{(col-kw :id) 1} {(col-kw :id) 2} {(col-kw :id) 3} {(col-kw :id) 4}]
|
||||
(plan/select! (ds) [(col-kw :id)] [(str "select * from fruit order by " (index))])))
|
||||
(is (= [{:id 1} {:id 2} {:id 3} {:id 4}]
|
||||
(plan/select! (ds) [:id] ["select * from fruit order by id"])))
|
||||
(is (= [1 2 3 4]
|
||||
(plan/select! (ds) (col-kw :id) [(str "select * from fruit order by " (index))])))
|
||||
(plan/select! (ds) :id ["select * from fruit order by id"])))
|
||||
(is (= ["Banana"]
|
||||
(plan/select! (ds) :name [(str "select * from fruit where " (index) " = ?") 2])))
|
||||
(plan/select! (ds) :name ["select * from fruit where id = ?" 2])))
|
||||
(is (= [[2 "Banana"]]
|
||||
(plan/select! (ds) (juxt (col-kw :id) :name)
|
||||
[(str "select * from fruit where " (index) " = ?") 2])))
|
||||
(is (= [{(col-kw :id) 2 :name "Banana"}]
|
||||
(plan/select! (ds) [(col-kw :id) :name]
|
||||
[(str "select * from fruit where " (index) " = ?") 2]))))
|
||||
(plan/select! (ds) (juxt :id :name)
|
||||
["select * from fruit where id = ?" 2])))
|
||||
(is (= [{:id 2 :name "Banana"}]
|
||||
(plan/select! (ds) [:id :name]
|
||||
["select * from fruit where id = ?" 2]))))
|
||||
|
||||
(deftest select-set-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(is (= #{{(col-kw :id) 1} {(col-kw :id) 2} {(col-kw :id) 3} {(col-kw :id) 4}}
|
||||
(plan/select! (ds) [(col-kw :id)] [(str "select * from fruit order by " (index))]
|
||||
(is (= #{{:id 1} {:id 2} {:id 3} {:id 4}}
|
||||
(plan/select! (ds) [:id] ["select * from fruit order by id"]
|
||||
{:into #{}})))
|
||||
(is (= #{1 2 3 4}
|
||||
(plan/select! (ds) (col-kw :id) [(str "select * from fruit order by " (index))]
|
||||
(plan/select! (ds) :id ["select * from fruit order by id"]
|
||||
{:into #{}}))))
|
||||
|
||||
(deftest select-map-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(is (= {1 "Apple", 2 "Banana", 3 "Peach", 4 "Orange"}
|
||||
(plan/select! (ds) (juxt (col-kw :id) :name) [(str "select * from fruit order by " (index))]
|
||||
(plan/select! (ds) (juxt :id :name) ["select * from fruit order by id"]
|
||||
{:into {}}))))
|
||||
|
||||
(deftest select-issue-227
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(is (= ["Apple"]
|
||||
(plan/select! (ds) :name [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(plan/select! (ds) :name ["select * from fruit where id = ?" 1]
|
||||
{:column-fn #(str/replace % "-" "_")})))
|
||||
(is (= ["Apple"]
|
||||
(plan/select! (ds) :foo/name [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(plan/select! (ds) :foo/name ["select * from fruit where id = ?" 1]
|
||||
{:column-fn #(str/replace % "-" "_")})))
|
||||
(is (= ["Apple"]
|
||||
(plan/select! (ds) #(get % "name") [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(plan/select! (ds) #(get % "name") ["select * from fruit where id = ?" 1]
|
||||
{:column-fn #(str/replace % "-" "_")})))
|
||||
(is (= [["Apple"]]
|
||||
(plan/select! (ds) (juxt :name) [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(plan/select! (ds) (juxt :name) ["select * from fruit where id = ?" 1]
|
||||
{:column-fn #(str/replace % "-" "_")}))))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.prepare-test
|
||||
"Stub test namespace for PreparedStatement creation etc.
|
||||
|
|
@ -8,22 +8,20 @@
|
|||
|
||||
The tests for the deprecated version of `execute-batch!` are here
|
||||
as a guard against regressions."
|
||||
(:require [lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing]]
|
||||
(:require [clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc :as jdbc]
|
||||
[next.jdbc.test-fixtures
|
||||
:refer [with-test-db ds jtds? mssql? sqlite? xtdb?]]
|
||||
:refer [with-test-db ds jtds? mssql? sqlite?]]
|
||||
[next.jdbc.prepare :as prep]
|
||||
[next.jdbc.specs :as specs]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
(deftest execute-batch-tests
|
||||
(when-not (xtdb?)
|
||||
(testing "simple batch insert"
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(jdbc/with-transaction [t (ds) {:rollback-only true}]
|
||||
|
|
@ -122,4 +120,4 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
;; Derby and SQLite only return one generated key per batch so there
|
||||
;; are only three keys, plus the overall count here:
|
||||
(is (< 3 (count results))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))))
|
||||
|
|
|
|||
|
|
@ -1,8 +1,9 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.protocols-test
|
||||
"Stub test namespace for low-level protocols. Nothing can really be tested
|
||||
at this level tho'..."
|
||||
(:require [next.jdbc.protocols]))
|
||||
(:require [clojure.test :refer [deftest is testing]]
|
||||
[next.jdbc.protocols :refer :all]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
|
|
|||
|
|
@ -1,30 +1,34 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.quoted-test
|
||||
"Basic tests for quoting strategies. These are also tested indirectly
|
||||
via the next.jdbc.sql tests."
|
||||
(:require [lazytest.core :refer [defdescribe describe it expect]]
|
||||
(:require [clojure.test :refer [deftest are testing]]
|
||||
[next.jdbc.quoted :refer [ansi mysql sql-server oracle postgres
|
||||
schema]]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(def ^:private quote-fns [ansi mysql sql-server oracle postgres])
|
||||
(deftest basic-quoting
|
||||
(are [quote-fn quoted] (= (quote-fn "x") quoted)
|
||||
ansi "\"x\""
|
||||
mysql "`x`"
|
||||
sql-server "[x]"
|
||||
oracle "\"x\""
|
||||
postgres "\"x\""))
|
||||
|
||||
(defdescribe quoted-functionality
|
||||
(describe "base quoting"
|
||||
(it "should correctly quote simple names"
|
||||
(doseq [[f e] (map vector quote-fns
|
||||
["\"x\"" "`x`" "[x]" "\"x\"" "\"x\""])]
|
||||
(expect (= (f "x") e)))))
|
||||
(describe "dotted name quoting"
|
||||
(describe "basic quoting"
|
||||
(it "should quote dotted names 'as-is'"
|
||||
(doseq [[f e] (map vector quote-fns
|
||||
["\"x.y\"" "`x.y`" "[x.y]" "\"x.y\"" "\"x.y\""])]
|
||||
(expect (= (f "x.y") e)))))
|
||||
(describe "schema quoting"
|
||||
(it "should split and quote dotted names with schema"
|
||||
(doseq [[f e] (map vector quote-fns
|
||||
["\"x\".\"y\"" "`x`.`y`" "[x].[y]" "\"x\".\"y\"" "\"x\".\"y\""])]
|
||||
(expect (= ((schema f) "x.y") e)))))))
|
||||
(deftest schema-quoting
|
||||
(testing "verify non-schema behavior"
|
||||
(are [quote-fn quoted] (= (quote-fn "x.y") quoted)
|
||||
ansi "\"x.y\""
|
||||
mysql "`x.y`"
|
||||
sql-server "[x.y]"
|
||||
oracle "\"x.y\""
|
||||
postgres "\"x.y\""))
|
||||
(testing "verify schema behavior"
|
||||
(are [quote-fn quoted] (= ((schema quote-fn) "x.y") quoted)
|
||||
ansi "\"x\".\"y\""
|
||||
mysql "`x`.`y`"
|
||||
sql-server "[x].[y]"
|
||||
oracle "\"x\".\"y\""
|
||||
postgres "\"x\".\"y\"")))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.result-set-test
|
||||
"Test namespace for the result set functions.
|
||||
|
|
@ -8,19 +8,18 @@
|
|||
(:require [clojure.core.protocols :as core-p]
|
||||
[clojure.datafy :as d]
|
||||
[clojure.string :as str]
|
||||
[lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing]]
|
||||
[clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc.protocols :as p]
|
||||
[next.jdbc.result-set :as rs]
|
||||
[next.jdbc.specs :as specs]
|
||||
[next.jdbc.test-fixtures :refer [with-test-db ds column index col-kw
|
||||
[next.jdbc.test-fixtures :refer [with-test-db ds column
|
||||
default-options
|
||||
derby? mssql? mysql? postgres? xtdb?]])
|
||||
derby? mssql? mysql? postgres?]])
|
||||
(:import (java.sql ResultSet ResultSetMetaData)))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
|
|
@ -28,9 +27,7 @@
|
|||
(testing "default schema"
|
||||
(let [connectable (ds)
|
||||
test-row (rs/datafiable-row {:TABLE/FRUIT_ID 1} connectable
|
||||
(cond-> (default-options)
|
||||
(xtdb?)
|
||||
(assoc :schema-opts {:pk "_id"})))
|
||||
(default-options))
|
||||
data (d/datafy test-row)
|
||||
v (get data :TABLE/FRUIT_ID)]
|
||||
;; check datafication is sane
|
||||
|
|
@ -43,10 +40,7 @@
|
|||
(let [connectable (ds)
|
||||
test-row (rs/datafiable-row {:foo/bar 2} connectable
|
||||
(assoc (default-options)
|
||||
:schema {:foo/bar
|
||||
(if (xtdb?)
|
||||
:fruit/_id
|
||||
:fruit/id)}))
|
||||
:schema {:foo/bar :fruit/id}))
|
||||
data (d/datafy test-row)
|
||||
v (get data :foo/bar)]
|
||||
;; check datafication is sane
|
||||
|
|
@ -59,10 +53,7 @@
|
|||
(let [connectable (ds)
|
||||
test-row (rs/datafiable-row {:foo/bar 3} connectable
|
||||
(assoc (default-options)
|
||||
:schema {:foo/bar
|
||||
[(if (xtdb?)
|
||||
:fruit/_id
|
||||
:fruit/id)]}))
|
||||
:schema {:foo/bar [:fruit/id]}))
|
||||
data (d/datafy test-row)
|
||||
v (get data :foo/bar)]
|
||||
;; check datafication is sane
|
||||
|
|
@ -76,7 +67,7 @@
|
|||
(let [connectable (ds)
|
||||
test-row (rs/datafiable-row {:foo/bar 2} connectable
|
||||
(assoc (default-options)
|
||||
:schema {:foo/bar [:fruit (col-kw :id)]}))
|
||||
:schema {:foo/bar [:fruit :id]}))
|
||||
data (d/datafy test-row)
|
||||
v (get data :foo/bar)]
|
||||
;; check datafication is sane
|
||||
|
|
@ -88,7 +79,7 @@
|
|||
(let [connectable (ds)
|
||||
test-row (rs/datafiable-row {:foo/bar 3} connectable
|
||||
(assoc (default-options)
|
||||
:schema {:foo/bar [:fruit (col-kw :id) :many]}))
|
||||
:schema {:foo/bar [:fruit :id :many]}))
|
||||
data (d/datafy test-row)
|
||||
v (get data :foo/bar)]
|
||||
;; check datafication is sane
|
||||
|
|
@ -102,7 +93,7 @@
|
|||
(deftest test-map-row-builder
|
||||
(testing "default row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 1]
|
||||
["select * from fruit where id = ?" 1]
|
||||
(default-options))]
|
||||
(is (map? row))
|
||||
(is (contains? row (column :FRUIT/GRADE)))
|
||||
|
|
@ -110,7 +101,7 @@
|
|||
(is (= 1 ((column :FRUIT/ID) row)))
|
||||
(is (= "Apple" ((column :FRUIT/NAME) row))))
|
||||
(let [rs (p/-execute-all (ds)
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
(default-options))]
|
||||
(is (every? map? rs))
|
||||
(is (= 1 ((column :FRUIT/ID) (first rs))))
|
||||
|
|
@ -119,7 +110,7 @@
|
|||
(is (= "Orange" ((column :FRUIT/NAME) (last rs))))))
|
||||
(testing "unqualified row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 2]
|
||||
["select * from fruit where id = ?" 2]
|
||||
{:builder-fn rs/as-unqualified-maps})]
|
||||
(is (map? row))
|
||||
(is (contains? row (column :COST)))
|
||||
|
|
@ -128,35 +119,34 @@
|
|||
(is (= "Banana" ((column :NAME) row)))))
|
||||
(testing "lower-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 3]
|
||||
["select * from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn rs/as-lower-maps))]
|
||||
(is (map? row))
|
||||
(is (contains? row (col-kw :fruit/appearance)))
|
||||
(is (nil? ((col-kw :fruit/appearance) row)))
|
||||
(is (= 3 ((col-kw :fruit/id) row)))
|
||||
(is (= "Peach" ((col-kw :fruit/name) row)))))
|
||||
(is (contains? row :fruit/appearance))
|
||||
(is (nil? (:fruit/appearance row)))
|
||||
(is (= 3 (:fruit/id row)))
|
||||
(is (= "Peach" (:fruit/name row)))))
|
||||
(testing "unqualified lower-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 4]
|
||||
["select * from fruit where id = ?" 4]
|
||||
{:builder-fn rs/as-unqualified-lower-maps})]
|
||||
(is (map? row))
|
||||
(is (= 4 ((col-kw :id) row)))
|
||||
(is (= "Orange" ((col-kw :name) row)))))
|
||||
(is (= 4 (:id row)))
|
||||
(is (= "Orange" (:name row)))))
|
||||
(testing "kebab-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select " (index) ",name,appearance as looks_like from fruit where " (index) " = ?") 3]
|
||||
["select id,name,appearance as looks_like from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn rs/as-kebab-maps))]
|
||||
(is (map? row))
|
||||
(is (contains? row (col-kw :fruit/looks-like)))
|
||||
(is (nil? ((col-kw :fruit/looks-like) row)))
|
||||
;; kebab-case strips leading _ from _id (XTDB):
|
||||
(is (= 3 ((if (xtdb?) :id :fruit/id) row)))
|
||||
(is (= "Peach" ((col-kw :fruit/name) row)))))
|
||||
(is (contains? row :fruit/looks-like))
|
||||
(is (nil? (:fruit/looks-like row)))
|
||||
(is (= 3 (:fruit/id row)))
|
||||
(is (= "Peach" (:fruit/name row)))))
|
||||
(testing "unqualified kebab-case row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select " (index) ",name,appearance as looks_like from fruit where " (index) " = ?") 4]
|
||||
["select id,name,appearance as looks_like from fruit where id = ?" 4]
|
||||
{:builder-fn rs/as-unqualified-kebab-maps})]
|
||||
(is (map? row))
|
||||
(is (contains? row :looks-like))
|
||||
|
|
@ -165,7 +155,7 @@
|
|||
(is (= "Orange" (:name row)))))
|
||||
(testing "custom row builder 1"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select fruit.*, " (index) " + 100 as newid from fruit where " (index) " = ?") 3]
|
||||
["select fruit.*, id + 100 as newid from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn rs/as-modified-maps
|
||||
:label-fn str/lower-case
|
||||
|
|
@ -178,7 +168,7 @@
|
|||
(is (= "Peach" ((column :FRUIT/name) row)))))
|
||||
(testing "custom row builder 2"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select fruit.*, " (index) " + 100 as newid from fruit where " (index) " = ?") 3]
|
||||
["select fruit.*, id + 100 as newid from fruit where id = ?" 3]
|
||||
(assoc (default-options)
|
||||
:builder-fn rs/as-modified-maps
|
||||
:label-fn str/lower-case
|
||||
|
|
@ -186,12 +176,12 @@
|
|||
(is (map? row))
|
||||
(is (contains? row :vegetable/appearance))
|
||||
(is (nil? (:vegetable/appearance row)))
|
||||
(is (= 3 ((if (xtdb?) :vegetable/_id :vegetable/id) row)))
|
||||
(is (= 3 (:vegetable/id row)))
|
||||
(is (= 103 (:vegetable/newid row))) ; constant qualifier here
|
||||
(is (= "Peach" (:vegetable/name row)))))
|
||||
(testing "adapted row builder"
|
||||
(let [row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 3]
|
||||
["select * from fruit where id = ?" 3]
|
||||
(assoc
|
||||
(default-options)
|
||||
:builder-fn (rs/as-maps-adapter
|
||||
|
|
@ -217,7 +207,7 @@
|
|||
(fn [^ResultSet rs _ ^Integer i]
|
||||
(.getObject rs i)))
|
||||
row (p/-execute-one (ds)
|
||||
[(str "select * from fruit where " (index) " = ?") 3]
|
||||
["select * from fruit where id = ?" 3]
|
||||
(assoc
|
||||
(default-options)
|
||||
:builder-fn (rs/as-maps-adapter
|
||||
|
|
@ -246,7 +236,7 @@
|
|||
(testing "row-numbers on bare abstraction"
|
||||
(is (= [1 2 3]
|
||||
(into [] (map rs/row-number)
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " < ?") 4]
|
||||
(p/-execute (ds) ["select * from fruit where id < ?" 4]
|
||||
;; we do not need a real builder here...
|
||||
(cond-> {:builder-fn (constantly nil)}
|
||||
(derby?)
|
||||
|
|
@ -257,7 +247,7 @@
|
|||
(is (= [1 2 3]
|
||||
(into [] (comp (map #(rs/datafiable-row % (ds) {}))
|
||||
(map rs/row-number))
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " < ?") 4]
|
||||
(p/-execute (ds) ["select * from fruit where id < ?" 4]
|
||||
;; ...but datafiable-row requires a real builder
|
||||
(cond-> {:builder-fn rs/as-arrays}
|
||||
(derby?)
|
||||
|
|
@ -267,7 +257,7 @@
|
|||
|
||||
(deftest test-column-names
|
||||
(testing "column-names on bare abstraction"
|
||||
(is (= #{(index) "appearance" "grade" "cost" "name"}
|
||||
(is (= #{"id" "appearance" "grade" "cost" "name"}
|
||||
(reduce (fn [_ row]
|
||||
(-> row
|
||||
(->> (rs/column-names)
|
||||
|
|
@ -275,11 +265,11 @@
|
|||
(set)
|
||||
(reduced))))
|
||||
nil
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " < ?") 4]
|
||||
(p/-execute (ds) ["select * from fruit where id < ?" 4]
|
||||
;; column-names require a real builder
|
||||
{:builder-fn rs/as-arrays})))))
|
||||
(testing "column-names on realized row"
|
||||
(is (= #{(index) "appearance" "grade" "cost" "name"}
|
||||
(is (= #{"id" "appearance" "grade" "cost" "name"}
|
||||
(reduce (fn [_ row]
|
||||
(-> row
|
||||
(rs/datafiable-row (ds) {})
|
||||
|
|
@ -288,7 +278,7 @@
|
|||
(set)
|
||||
(reduced))))
|
||||
nil
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " < ?") 4]
|
||||
(p/-execute (ds) ["select * from fruit where id < ?" 4]
|
||||
{:builder-fn rs/as-arrays}))))))
|
||||
|
||||
(deftest test-over-partition-all
|
||||
|
|
@ -309,31 +299,31 @@
|
|||
(testing "no row builder is used"
|
||||
(is (= [true]
|
||||
(into [] (map map?) ; it looks like a real map now
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(p/-execute (ds) ["select * from fruit where id = ?" 1]
|
||||
{:builder-fn (constantly nil)}))))
|
||||
(is (= ["Apple"]
|
||||
(into [] (map :name) ; keyword selection works
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(p/-execute (ds) ["select * from fruit where id = ?" 1]
|
||||
{:builder-fn (constantly nil)}))))
|
||||
(is (= [[2 [:name "Banana"]]]
|
||||
(into [] (map (juxt #(get % (index)) ; get by string key works
|
||||
(into [] (map (juxt #(get % "id") ; get by string key works
|
||||
#(find % :name))) ; get MapEntry works
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " = ?") 2]
|
||||
(p/-execute (ds) ["select * from fruit where id = ?" 2]
|
||||
{:builder-fn (constantly nil)}))))
|
||||
(is (= [{(col-kw :id) 3 :name "Peach"}]
|
||||
(into [] (map #(select-keys % [(col-kw :id) :name])) ; select-keys works
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " = ?") 3]
|
||||
(is (= [{:id 3 :name "Peach"}]
|
||||
(into [] (map #(select-keys % [:id :name])) ; select-keys works
|
||||
(p/-execute (ds) ["select * from fruit where id = ?" 3]
|
||||
{:builder-fn (constantly nil)}))))
|
||||
(is (= [[:orange 4]]
|
||||
(into [] (map #(vector (if (contains? % :name) ; contains works
|
||||
(keyword (str/lower-case (:name %)))
|
||||
:unnamed)
|
||||
(get % (col-kw :id) 0))) ; get with not-found works
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " = ?") 4]
|
||||
(get % :id 0))) ; get with not-found works
|
||||
(p/-execute (ds) ["select * from fruit where id = ?" 4]
|
||||
{:builder-fn (constantly nil)}))))
|
||||
(is (= [{}]
|
||||
(into [] (map empty) ; return empty map without building
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(p/-execute (ds) ["select * from fruit where id = ?" 1]
|
||||
{:builder-fn (constantly nil)})))))
|
||||
(testing "count does not build a map"
|
||||
(let [count-builder (fn [_1 _2]
|
||||
|
|
@ -341,7 +331,7 @@
|
|||
(column-count [_] 13)))]
|
||||
(is (= [13]
|
||||
(into [] (map count) ; count relies on columns, not row fields
|
||||
(p/-execute (ds) [(str "select * from fruit where " (index) " = ?") 1]
|
||||
(p/-execute (ds) ["select * from fruit where id = ?" 1]
|
||||
{:builder-fn count-builder}))))))
|
||||
(testing "assoc, dissoc, cons, seq, and = build maps"
|
||||
(is (map? (reduce (fn [_ row] (reduced (assoc row :x 1)))
|
||||
|
|
@ -427,7 +417,7 @@
|
|||
(defn fruit-builder [^ResultSet rs ^ResultSetMetaData rsmeta]
|
||||
(reify
|
||||
rs/RowBuilder
|
||||
(->row [_] (->Fruit (.getObject rs ^String (index))
|
||||
(->row [_] (->Fruit (.getObject rs "id")
|
||||
(.getObject rs "name")
|
||||
(.getObject rs "appearance")
|
||||
(.getObject rs "cost")
|
||||
|
|
@ -444,7 +434,7 @@
|
|||
(valAt [this k] (get this k nil))
|
||||
(valAt [this k not-found]
|
||||
(case k
|
||||
:cols [(col-kw :id) :name :appearance :cost :grade]
|
||||
:cols [:id :name :appearance :cost :grade]
|
||||
:rsmeta rsmeta
|
||||
not-found))))
|
||||
|
||||
|
|
@ -477,7 +467,7 @@
|
|||
metadata))))
|
||||
|
||||
(deftest clob-reading
|
||||
(when-not (or (mssql?) (mysql?) (postgres?) (xtdb?)) ; no clob in these
|
||||
(when-not (or (mssql?) (mysql?) (postgres?)) ; no clob in these
|
||||
(with-open [con (p/get-connection (ds) {})]
|
||||
(try
|
||||
(p/-execute-one con ["DROP TABLE CLOBBER"] {})
|
||||
|
|
@ -507,10 +497,10 @@ CREATE TABLE CLOBBER (
|
|||
(testing "get n on bare abstraction over arrays"
|
||||
(is (= [1 2 3]
|
||||
(into [] (map #(get % 0))
|
||||
(p/-execute (ds) [(str "select " (index) " from fruit where " (index) " < ? order by " (index)) 4]
|
||||
(p/-execute (ds) ["select id from fruit where id < ?" 4]
|
||||
{:builder-fn rs/as-arrays})))))
|
||||
(testing "nth on bare abstraction over arrays"
|
||||
(is (= [1 2 3]
|
||||
(into [] (map #(nth % 0))
|
||||
(p/-execute (ds) [(str "select " (index) " from fruit where " (index) " < ? order by " (index)) 4]
|
||||
(p/-execute (ds) ["select id from fruit where id < ?" 4]
|
||||
{:builder-fn rs/as-arrays}))))))
|
||||
|
|
|
|||
|
|
@ -1,10 +1,11 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.specs-test
|
||||
"Stub test namespace for the specs.
|
||||
|
||||
The specs are used (and 'tested') as part of the tests for the
|
||||
next.jdbc and next.jdbc.sql namespaces."
|
||||
(:require [next.jdbc.specs]))
|
||||
(:require [clojure.test :refer [deftest is testing]]
|
||||
[next.jdbc.specs :refer :all]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.sql.builder-test
|
||||
"Tests for the SQL string building functions in next.jdbc.sql.builder."
|
||||
(:require [lazytest.experimental.interfaces.clojure-test :refer [deftest is testing thrown?]]
|
||||
(:require [clojure.test :refer [deftest is testing]]
|
||||
[next.jdbc.quoted :refer [mysql sql-server]]
|
||||
[next.jdbc.sql.builder :as builder]))
|
||||
|
||||
|
|
@ -13,12 +13,20 @@
|
|||
(is (= (builder/by-keys {:a nil :b 42 :c "s"} :where {})
|
||||
["WHERE a IS NULL AND b = ? AND c = ?" 42 "s"]))
|
||||
(is (= (builder/by-keys {:q/a nil :q/b 42 :q/c "s"} :where {})
|
||||
["WHERE a IS NULL AND b = ? AND c = ?" 42 "s"])))
|
||||
["WHERE a IS NULL AND b = ? AND c = ?" 42 "s"]))
|
||||
(is (= (builder/by-keys {:q/a nil :q/b 42 :q/c "s"} :where
|
||||
{:name-fn builder/qualified-name
|
||||
:column-fn mysql})
|
||||
["WHERE `q/a` IS NULL AND `q/b` = ? AND `q/c` = ?" 42 "s"])))
|
||||
(testing ":set clause"
|
||||
(is (= (builder/by-keys {:a nil :b 42 :c "s"} :set {})
|
||||
["SET a = ?, b = ?, c = ?" nil 42 "s"]))
|
||||
(is (= (builder/by-keys {:q/a nil :q/b 42 :q/c "s"} :set {})
|
||||
["SET a = ?, b = ?, c = ?" nil 42 "s"]))))
|
||||
["SET a = ?, b = ?, c = ?" nil 42 "s"]))
|
||||
(is (= (builder/by-keys {:q/a nil :q/b 42 :q/c "s"} :set
|
||||
{:name-fn builder/qualified-name
|
||||
:column-fn mysql})
|
||||
["SET `q/a` = ?, `q/b` = ?, `q/c` = ?" nil 42 "s"]))))
|
||||
|
||||
(deftest test-as-cols
|
||||
(is (= (builder/as-cols [:a :b :c] {})
|
||||
|
|
@ -32,18 +40,34 @@
|
|||
(is (= (builder/as-cols [[:q/a :q/aa] :q/b ["count(*)" :q/c]] {})
|
||||
"a AS aa, b, count(*) AS c"))
|
||||
(is (= (builder/as-cols [[:q/a :q/aa] :q/b ["count(*)" :q/c]] {:column-fn mysql})
|
||||
"`a` AS `aa`, `b`, count(*) AS `c`")))
|
||||
"`a` AS `aa`, `b`, count(*) AS `c`"))
|
||||
(is (= (builder/as-cols [:q/a :q/b :q/c]
|
||||
{:name-fn builder/qualified-name
|
||||
:column-fn mysql})
|
||||
"`q/a`, `q/b`, `q/c`"))
|
||||
(is (= (builder/as-cols [[:q/a :q/aa] :q/b ["count(*)" :q/c]]
|
||||
{:name-fn builder/qualified-name
|
||||
:column-fn mysql})
|
||||
"`q/a` AS `q/aa`, `q/b`, count(*) AS `q/c`")))
|
||||
|
||||
(deftest test-as-keys
|
||||
(is (= (builder/as-keys {:a nil :b 42 :c "s"} {})
|
||||
"a, b, c"))
|
||||
(is (= (builder/as-keys {:q/a nil :q/b 42 :q/c "s"} {})
|
||||
"a, b, c")))
|
||||
"a, b, c"))
|
||||
(is (= (builder/as-keys {:q/a nil :q/b 42 :q/c "s"}
|
||||
{:name-fn builder/qualified-name
|
||||
:column-fn sql-server})
|
||||
"[q/a], [q/b], [q/c]")))
|
||||
|
||||
(deftest test-as-?
|
||||
(is (= (builder/as-? {:a nil :b 42 :c "s"} {})
|
||||
"?, ?, ?"))
|
||||
(is (= (builder/as-? {:q/a nil :q/b 42 :q/c "s"} {})
|
||||
"?, ?, ?"))
|
||||
(is (= (builder/as-? {:q/a nil :q/b 42 :q/c "s"}
|
||||
{:name-fn builder/qualified-name
|
||||
:column-fn sql-server})
|
||||
"?, ?, ?")))
|
||||
|
||||
(deftest test-for-query
|
||||
|
|
@ -71,7 +95,23 @@
|
|||
{:q/id nil}
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:suffix "FOR UPDATE"})
|
||||
["SELECT * FROM [user] WHERE `id` IS NULL FOR UPDATE"])))
|
||||
["SELECT * FROM [user] WHERE `id` IS NULL FOR UPDATE"]))
|
||||
(is (= (builder/for-query
|
||||
:t/user
|
||||
{:q/id 9}
|
||||
{:table-fn sql-server :column-fn mysql :order-by [:x/a [:x/b :desc]]
|
||||
:name-fn builder/qualified-name})
|
||||
["SELECT * FROM [t/user] WHERE `q/id` = ? ORDER BY `x/a`, `x/b` DESC" 9]))
|
||||
(is (= (builder/for-query :t/user {:q/id nil}
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:name-fn builder/qualified-name})
|
||||
["SELECT * FROM [t/user] WHERE `q/id` IS NULL"]))
|
||||
(is (= (builder/for-query :t/user
|
||||
{:q/id nil}
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:name-fn builder/qualified-name
|
||||
:suffix "FOR UPDATE"})
|
||||
["SELECT * FROM [t/user] WHERE `q/id` IS NULL FOR UPDATE"])))
|
||||
(testing "by where clause"
|
||||
(is (= (builder/for-query
|
||||
:user
|
||||
|
|
@ -143,7 +183,13 @@
|
|||
:t/user
|
||||
{:q/opt nil :q/id 9}
|
||||
{:table-fn sql-server :column-fn mysql})
|
||||
["DELETE FROM [user] WHERE `opt` IS NULL AND `id` = ?" 9])))
|
||||
["DELETE FROM [user] WHERE `opt` IS NULL AND `id` = ?" 9]))
|
||||
(is (= (builder/for-delete
|
||||
:t/user
|
||||
{:q/opt nil :q/id 9}
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:name-fn builder/qualified-name})
|
||||
["DELETE FROM [t/user] WHERE `q/opt` IS NULL AND `q/id` = ?" 9])))
|
||||
(testing "by where clause"
|
||||
(is (= (builder/for-delete
|
||||
:user
|
||||
|
|
@ -154,11 +200,17 @@
|
|||
:t/user
|
||||
["id = ? and opt is null" 9]
|
||||
{:table-fn sql-server :column-fn mysql})
|
||||
["DELETE FROM [user] WHERE id = ? and opt is null" 9]))))
|
||||
["DELETE FROM [user] WHERE id = ? and opt is null" 9]))
|
||||
(is (= (builder/for-delete
|
||||
:t/user
|
||||
["id = ? and opt is null" 9]
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:name-fn builder/qualified-name})
|
||||
["DELETE FROM [t/user] WHERE id = ? and opt is null" 9]))))
|
||||
|
||||
(deftest test-for-update
|
||||
(testing "empty example (would be a SQL error)"
|
||||
(is (thrown? IllegalArgumentException
|
||||
(is (thrown? AssertionError ; changed in #44
|
||||
(builder/for-update :user
|
||||
{:status 42}
|
||||
{}
|
||||
|
|
@ -173,7 +225,13 @@
|
|||
{:q/status 42}
|
||||
{:q/id 9}
|
||||
{:table-fn sql-server :column-fn mysql})
|
||||
["UPDATE [user] SET `status` = ? WHERE `id` = ?" 42 9])))
|
||||
["UPDATE [user] SET `status` = ? WHERE `id` = ?" 42 9]))
|
||||
(is (= (builder/for-update :t/user
|
||||
{:q/status 42}
|
||||
{:q/id 9}
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:name-fn builder/qualified-name})
|
||||
["UPDATE [t/user] SET `q/status` = ? WHERE `q/id` = ?" 42 9])))
|
||||
(testing "by where clause, with nil set value"
|
||||
(is (= (builder/for-update :user
|
||||
{:status 42, :opt nil}
|
||||
|
|
@ -190,7 +248,12 @@
|
|||
(is (= (builder/for-insert :t/user
|
||||
{:q/id 9 :q/status 42 :q/opt nil}
|
||||
{:table-fn sql-server :column-fn mysql})
|
||||
["INSERT INTO [user] (`id`, `status`, `opt`) VALUES (?, ?, ?)" 9 42 nil])))
|
||||
["INSERT INTO [user] (`id`, `status`, `opt`) VALUES (?, ?, ?)" 9 42 nil]))
|
||||
(is (= (builder/for-insert :t/user
|
||||
{:q/id 9 :q/status 42 :q/opt nil}
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:name-fn builder/qualified-name})
|
||||
["INSERT INTO [t/user] (`q/id`, `q/status`, `q/opt`) VALUES (?, ?, ?)" 9 42 nil])))
|
||||
(testing "multi-row insert (normal mode)"
|
||||
(is (= (builder/for-insert-multi :user
|
||||
[:id :status]
|
||||
|
|
@ -205,7 +268,15 @@
|
|||
[35 "world"]
|
||||
[64 "dollars"]]
|
||||
{:table-fn sql-server :column-fn mysql})
|
||||
["INSERT INTO [user] (`id`, `status`) VALUES (?, ?), (?, ?), (?, ?)" 42 "hello" 35 "world" 64 "dollars"])))
|
||||
["INSERT INTO [user] (`id`, `status`) VALUES (?, ?), (?, ?), (?, ?)" 42 "hello" 35 "world" 64 "dollars"]))
|
||||
(is (= (builder/for-insert-multi :t/user
|
||||
[:q/id :q/status]
|
||||
[[42 "hello"]
|
||||
[35 "world"]
|
||||
[64 "dollars"]]
|
||||
{:table-fn sql-server :column-fn mysql
|
||||
:name-fn builder/qualified-name})
|
||||
["INSERT INTO [t/user] (`q/id`, `q/status`) VALUES (?, ?), (?, ?), (?, ?)" 42 "hello" 35 "world" 64 "dollars"])))
|
||||
(testing "multi-row insert (batch mode)"
|
||||
(is (= (builder/for-insert-multi :user
|
||||
[:id :status]
|
||||
|
|
@ -220,4 +291,12 @@
|
|||
[35 "world"]
|
||||
[64 "dollars"]]
|
||||
{:table-fn sql-server :column-fn mysql :batch true})
|
||||
["INSERT INTO [user] (`id`, `status`) VALUES (?, ?)" [42 "hello"] [35 "world"] [64 "dollars"]]))))
|
||||
["INSERT INTO [user] (`id`, `status`) VALUES (?, ?)" [42 "hello"] [35 "world"] [64 "dollars"]]))
|
||||
(is (= (builder/for-insert-multi :t/user
|
||||
[:q/id :q/status]
|
||||
[[42 "hello"]
|
||||
[35 "world"]
|
||||
[64 "dollars"]]
|
||||
{:table-fn sql-server :column-fn mysql :batch true
|
||||
:name-fn builder/qualified-name})
|
||||
["INSERT INTO [t/user] (`q/id`, `q/status`) VALUES (?, ?)" [42 "hello"] [35 "world"] [64 "dollars"]]))))
|
||||
|
|
|
|||
|
|
@ -1,26 +1,25 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2024 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.sql-test
|
||||
"Tests for the syntactic sugar SQL functions."
|
||||
(:require [lazytest.core :refer [around set-ns-context!]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing thrown?]]
|
||||
(:require [clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc :as jdbc]
|
||||
[next.jdbc.specs :as specs]
|
||||
[next.jdbc.sql :as sql]
|
||||
[next.jdbc.test-fixtures
|
||||
:refer [col-kw column default-options derby? ds index jtds?
|
||||
maria? mssql? mysql? postgres? sqlite? with-test-db xtdb?]]
|
||||
:refer [with-test-db ds column default-options
|
||||
derby? jtds? maria? mssql? mysql? postgres? sqlite?]]
|
||||
[next.jdbc.types :refer [as-other as-real as-varchar]]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(set-ns-context! [(around [f] (with-test-db f))])
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
(deftest test-query
|
||||
(let [ds-opts (jdbc/with-options (ds) (default-options))
|
||||
rs (sql/query ds-opts [(str "select * from fruit order by " (index))])]
|
||||
rs (sql/query ds-opts ["select * from fruit order by id"])]
|
||||
(is (= 4 (count rs)))
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
|
|
@ -35,10 +34,10 @@
|
|||
(if (or (mysql?) (sqlite?))
|
||||
{:limit 2 :offset 1}
|
||||
{:offset 1 :fetch 2})
|
||||
:columns [(col-kw :ID)
|
||||
:columns [:ID
|
||||
["CASE WHEN grade > 91 THEN 'ok ' ELSE 'bad' END"
|
||||
:QUALITY]]
|
||||
:order-by [(col-kw :id)]))]
|
||||
:order-by [:id]))]
|
||||
(is (= 2 (count rs)))
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
|
|
@ -68,18 +67,17 @@
|
|||
(is (= 1 count-v)))
|
||||
(let [count-v (sql/aggregate-by-keys ds-opts :fruit "count(*)" :all)]
|
||||
(is (= 4 count-v)))
|
||||
(let [max-id (sql/aggregate-by-keys ds-opts :fruit (str "max(" (index) ")") :all)]
|
||||
(let [max-id (sql/aggregate-by-keys ds-opts :fruit "max(id)" :all)]
|
||||
(is (= 4 max-id)))
|
||||
(when-not (xtdb?) ; XTDB does not support min/max on strings?
|
||||
(let [min-name (sql/aggregate-by-keys ds-opts :fruit "min(name)" :all)]
|
||||
(is (= "Apple" min-name))))
|
||||
(is (= "Apple" min-name)))
|
||||
(is (thrown? IllegalArgumentException
|
||||
(sql/aggregate-by-keys ds-opts :fruit "count(*)" :all {:columns []})))))
|
||||
|
||||
(deftest test-get-by-id
|
||||
(let [ds-opts (jdbc/with-options (ds) (default-options))]
|
||||
(is (nil? (sql/get-by-id ds-opts :fruit -1 (col-kw :id) {})))
|
||||
(let [row (sql/get-by-id ds-opts :fruit 3 (col-kw :id) {})]
|
||||
(is (nil? (sql/get-by-id ds-opts :fruit -1)))
|
||||
(let [row (sql/get-by-id ds-opts :fruit 3)]
|
||||
(is (map? row))
|
||||
(is (= "Peach" ((column :FRUIT/NAME) row))))
|
||||
(let [row (sql/get-by-id ds-opts :fruit "juicy" :appearance {})]
|
||||
|
|
@ -90,28 +88,23 @@
|
|||
(is (map? row))
|
||||
(is (= 2 ((column :FRUIT/ID) row))))))
|
||||
|
||||
(defn- update-count [n]
|
||||
(if (xtdb?)
|
||||
{:next.jdbc/update-count 0}
|
||||
{:next.jdbc/update-count n}))
|
||||
|
||||
(deftest test-update!
|
||||
(let [ds-opts (jdbc/with-options (ds) (default-options))]
|
||||
(try
|
||||
(is (= (update-count 1)
|
||||
(sql/update! ds-opts :fruit {:appearance "brown"} {(col-kw :id) 2})))
|
||||
(is (= {:next.jdbc/update-count 1}
|
||||
(sql/update! ds-opts :fruit {:appearance "brown"} {:id 2})))
|
||||
(is (= "brown" ((column :FRUIT/APPEARANCE)
|
||||
(sql/get-by-id ds-opts :fruit 2 (col-kw :id) {}))))
|
||||
(sql/get-by-id ds-opts :fruit 2))))
|
||||
(finally
|
||||
(sql/update! ds-opts :fruit {:appearance "yellow"} {(col-kw :id) 2})))
|
||||
(sql/update! ds-opts :fruit {:appearance "yellow"} {:id 2})))
|
||||
(try
|
||||
(is (= (update-count 1)
|
||||
(is (= {:next.jdbc/update-count 1}
|
||||
(sql/update! ds-opts :fruit {:appearance "green"}
|
||||
["name = ?" "Banana"])))
|
||||
(is (= "green" ((column :FRUIT/APPEARANCE)
|
||||
(sql/get-by-id ds-opts :fruit 2 (col-kw :id) {}))))
|
||||
(sql/get-by-id ds-opts :fruit 2))))
|
||||
(finally
|
||||
(sql/update! ds-opts :fruit {:appearance "yellow"} {(col-kw :id) 2})))))
|
||||
(sql/update! ds-opts :fruit {:appearance "yellow"} {:id 2})))))
|
||||
|
||||
(deftest test-insert-delete
|
||||
(let [new-key (cond (derby?) :1
|
||||
|
|
@ -120,24 +113,18 @@
|
|||
(mssql?) :GENERATED_KEYS
|
||||
(mysql?) :GENERATED_KEY
|
||||
(postgres?) :fruit/id
|
||||
;; XTDB does not return the generated key so we fix it
|
||||
;; to be the one we insert here, and then fake it in all
|
||||
;; the other tests.
|
||||
(xtdb?) (constantly 5)
|
||||
:else :FRUIT/ID)]
|
||||
(testing "single insert/delete"
|
||||
(is (== 5 (new-key (sql/insert! (ds) :fruit
|
||||
(cond-> {:name (as-varchar "Kiwi")
|
||||
{:name (as-varchar "Kiwi")
|
||||
:appearance "green & fuzzy"
|
||||
:cost 100 :grade (as-real 99.9)}
|
||||
(xtdb?)
|
||||
(assoc :_id 5))
|
||||
{:suffix
|
||||
(when (sqlite?)
|
||||
"RETURNING *")}))))
|
||||
(is (= 5 (count (sql/query (ds) ["select * from fruit"]))))
|
||||
(is (= (update-count 1)
|
||||
(sql/delete! (ds) :fruit {(col-kw :id) 5})))
|
||||
(is (= {:next.jdbc/update-count 1}
|
||||
(sql/delete! (ds) :fruit {:id 5})))
|
||||
(is (= 4 (count (sql/query (ds) ["select * from fruit"])))))
|
||||
(testing "multiple insert/delete"
|
||||
(is (= (cond (derby?)
|
||||
|
|
@ -146,28 +133,23 @@
|
|||
[8M]
|
||||
(maria?)
|
||||
[6]
|
||||
(xtdb?)
|
||||
[]
|
||||
:else
|
||||
[6 7 8])
|
||||
(mapv new-key
|
||||
(sql/insert-multi! (ds) :fruit
|
||||
(cond->> [:name :appearance :cost :grade]
|
||||
(xtdb?) (cons :_id))
|
||||
(cond->> [["Kiwi" "green & fuzzy" 100 99.9]
|
||||
[:name :appearance :cost :grade]
|
||||
[["Kiwi" "green & fuzzy" 100 99.9]
|
||||
["Grape" "black" 10 50]
|
||||
["Lemon" "yellow" 20 9.9]]
|
||||
(xtdb?)
|
||||
(map cons [6 7 8]))
|
||||
{:suffix
|
||||
(when (sqlite?)
|
||||
"RETURNING *")}))))
|
||||
(is (= 7 (count (sql/query (ds) ["select * from fruit"]))))
|
||||
(is (= (update-count 1)
|
||||
(sql/delete! (ds) :fruit {(col-kw :id) 6})))
|
||||
(is (= {:next.jdbc/update-count 1}
|
||||
(sql/delete! (ds) :fruit {:id 6})))
|
||||
(is (= 6 (count (sql/query (ds) ["select * from fruit"]))))
|
||||
(is (= (update-count 2)
|
||||
(sql/delete! (ds) :fruit [(str (index) " > ?") 4])))
|
||||
(is (= {:next.jdbc/update-count 2}
|
||||
(sql/delete! (ds) :fruit ["id > ?" 4])))
|
||||
(is (= 4 (count (sql/query (ds) ["select * from fruit"])))))
|
||||
(testing "multiple insert/delete with sequential cols/rows" ; per #43
|
||||
(is (= (cond (derby?)
|
||||
|
|
@ -176,28 +158,23 @@
|
|||
[11M]
|
||||
(maria?)
|
||||
[9]
|
||||
(xtdb?)
|
||||
[]
|
||||
:else
|
||||
[9 10 11])
|
||||
(mapv new-key
|
||||
(sql/insert-multi! (ds) :fruit
|
||||
(cond->> '(:name :appearance :cost :grade)
|
||||
(xtdb?) (cons :_id))
|
||||
(cond->> '(("Kiwi" "green & fuzzy" 100 99.9)
|
||||
'(:name :appearance :cost :grade)
|
||||
'(("Kiwi" "green & fuzzy" 100 99.9)
|
||||
("Grape" "black" 10 50)
|
||||
("Lemon" "yellow" 20 9.9))
|
||||
(xtdb?)
|
||||
(map cons [9 10 11]))
|
||||
{:suffix
|
||||
(when (sqlite?)
|
||||
"RETURNING *")}))))
|
||||
(is (= 7 (count (sql/query (ds) ["select * from fruit"]))))
|
||||
(is (= (update-count 1)
|
||||
(sql/delete! (ds) :fruit {(col-kw :id) 9})))
|
||||
(is (= {:next.jdbc/update-count 1}
|
||||
(sql/delete! (ds) :fruit {:id 9})))
|
||||
(is (= 6 (count (sql/query (ds) ["select * from fruit"]))))
|
||||
(is (= (update-count 2)
|
||||
(sql/delete! (ds) :fruit [(str (index) " > ?") 4])))
|
||||
(is (= {:next.jdbc/update-count 2}
|
||||
(sql/delete! (ds) :fruit ["id > ?" 4])))
|
||||
(is (= 4 (count (sql/query (ds) ["select * from fruit"])))))
|
||||
(testing "multiple insert/delete with maps"
|
||||
(is (= (cond (derby?)
|
||||
|
|
@ -206,13 +183,11 @@
|
|||
[14M]
|
||||
(maria?)
|
||||
[12]
|
||||
(xtdb?)
|
||||
[]
|
||||
:else
|
||||
[12 13 14])
|
||||
(mapv new-key
|
||||
(sql/insert-multi! (ds) :fruit
|
||||
(cond->> [{:name "Kiwi"
|
||||
[{:name "Kiwi"
|
||||
:appearance "green & fuzzy"
|
||||
:cost 100
|
||||
:grade 99.9}
|
||||
|
|
@ -224,17 +199,15 @@
|
|||
:appearance "yellow"
|
||||
:cost 20
|
||||
:grade 9.9}]
|
||||
(xtdb?)
|
||||
(map #(assoc %2 :_id %1) [12 13 14]))
|
||||
{:suffix
|
||||
(when (sqlite?)
|
||||
"RETURNING *")}))))
|
||||
(is (= 7 (count (sql/query (ds) ["select * from fruit"]))))
|
||||
(is (= (update-count 1)
|
||||
(sql/delete! (ds) :fruit {(col-kw :id) 12})))
|
||||
(is (= {:next.jdbc/update-count 1}
|
||||
(sql/delete! (ds) :fruit {:id 12})))
|
||||
(is (= 6 (count (sql/query (ds) ["select * from fruit"]))))
|
||||
(is (= (update-count 2)
|
||||
(sql/delete! (ds) :fruit [(str (index) " > ?") 10])))
|
||||
(is (= {:next.jdbc/update-count 2}
|
||||
(sql/delete! (ds) :fruit ["id > ?" 10])))
|
||||
(is (= 4 (count (sql/query (ds) ["select * from fruit"])))))
|
||||
(testing "empty insert-multi!" ; per #44 and #264
|
||||
(is (= [] (sql/insert-multi! (ds) :fruit
|
||||
|
|
@ -282,7 +255,7 @@
|
|||
|
||||
(deftest array-in
|
||||
(when (postgres?)
|
||||
(let [data (sql/find-by-keys (ds) :fruit [(str (index) " = any(?)") (int-array [1 2 3 4])])]
|
||||
(let [data (sql/find-by-keys (ds) :fruit ["id = any(?)" (int-array [1 2 3 4])])]
|
||||
(is (= 4 (count data))))))
|
||||
|
||||
(deftest enum-pg
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; copyright (c) 2019-2024 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.test-fixtures
|
||||
"Multi-database testing fixtures."
|
||||
|
|
@ -64,27 +64,16 @@
|
|||
(def ^:private test-jtds
|
||||
(when (System/getenv "NEXT_JDBC_TEST_MSSQL") test-jtds-map))
|
||||
|
||||
(def ^:private test-xtdb-map {:dbtype "xtdb" :dbname "xtdb"})
|
||||
|
||||
(def ^:private test-xtdb
|
||||
(when (and (System/getenv "NEXT_JDBC_TEST_XTDB")
|
||||
;; only if we're on jdk21+
|
||||
(str/starts-with? (System/getProperty "java.version") "2"))
|
||||
test-xtdb-map))
|
||||
|
||||
(def ^:private test-db-specs
|
||||
(cond-> [test-derby test-h2-mem test-h2 test-hsql test-sqlite]
|
||||
test-postgres (conj test-postgres)
|
||||
test-mysql (conj test-mysql)
|
||||
test-mssql (conj test-mssql test-jtds)
|
||||
test-xtdb (conj test-xtdb)))
|
||||
test-mssql (conj test-mssql test-jtds)))
|
||||
|
||||
(def ^:private test-db-spec (atom nil))
|
||||
|
||||
(defn derby? [] (= "derby" (:dbtype @test-db-spec)))
|
||||
|
||||
(defn h2? [] (str/starts-with? (:dbtype @test-db-spec) "h2"))
|
||||
|
||||
(defn hsqldb? [] (= "hsqldb" (:dbtype @test-db-spec)))
|
||||
|
||||
(defn jtds? [] (= "jtds" (:dbtype @test-db-spec)))
|
||||
|
|
@ -97,34 +86,19 @@
|
|||
|
||||
(defn postgres? [] (= "embedded-postgres" (:dbtype @test-db-spec)))
|
||||
|
||||
(defn xtdb? [] (= "xtdb" (:dbtype @test-db-spec)))
|
||||
|
||||
(defn sqlite? [] (= "sqlite" (:dbtype @test-db-spec)))
|
||||
|
||||
(defn stored-proc? [] (not (#{"derby" "h2" "h2:mem" "sqlite" "xtdb"}
|
||||
(:dbtype @test-db-spec))))
|
||||
(defn stored-proc? [] (not (#{"derby" "h2" "h2:mem" "sqlite"} (:dbtype @test-db-spec))))
|
||||
|
||||
(defn column [k]
|
||||
(let [n (namespace k)]
|
||||
(keyword (when n (cond (postgres?) (str/lower-case n)
|
||||
(mssql?) (str/lower-case n)
|
||||
(mysql?) (str/lower-case n)
|
||||
(xtdb?) nil
|
||||
:else n))
|
||||
(cond (postgres?) (str/lower-case (name k))
|
||||
(xtdb?) (let [c (str/lower-case (name k))]
|
||||
(if (= "id" c) "_id" c))
|
||||
:else (name k)))))
|
||||
|
||||
(defn index []
|
||||
(if (xtdb?) "_id" "id"))
|
||||
|
||||
(defn col-kw [k]
|
||||
(if (xtdb?)
|
||||
(let [n (name k)]
|
||||
(if (= "id" (str/lower-case n)) :_id (keyword n)))
|
||||
k))
|
||||
|
||||
(defn default-options []
|
||||
(if (mssql?) ; so that we get table names back from queries
|
||||
{:result-type :scroll-insensitive :concurrency :read-only}
|
||||
|
|
@ -182,31 +156,6 @@
|
|||
:else
|
||||
"AUTO_INCREMENT PRIMARY KEY")]
|
||||
(with-open [con (jdbc/get-connection (ds))]
|
||||
(if (xtdb?) ; no DDL for creation
|
||||
(do
|
||||
(try
|
||||
(do-commands con ["ERASE FROM fruit WHERE true"])
|
||||
(catch Throwable _))
|
||||
(try
|
||||
(do-commands con ["ERASE FROM btest WHERE true"])
|
||||
(catch Throwable _))
|
||||
(sql/insert-multi! con :fruit
|
||||
[:_id :name :appearance :cost]
|
||||
[[1 "Apple" "red" 59]]
|
||||
{:return-keys false})
|
||||
(sql/insert-multi! con :fruit
|
||||
[:_id :name :appearance :grade]
|
||||
[[2 "Banana" "yellow" 92.2]]
|
||||
{:return-keys false})
|
||||
(sql/insert-multi! con :fruit
|
||||
[:_id :name :cost :grade]
|
||||
[[3 "Peach" 139 90.0]]
|
||||
{:return-keys false})
|
||||
(sql/insert-multi! con :fruit
|
||||
[:_id :name :appearance :cost :grade]
|
||||
[[4 "Orange" "juicy" 89 88.6]]
|
||||
{:return-keys false}))
|
||||
(do
|
||||
(when (stored-proc?)
|
||||
(try
|
||||
(jdbc/execute-one! con ["DROP PROCEDURE FRUITP"])
|
||||
|
|
@ -282,7 +231,7 @@ CREATE PROCEDURE FRUITP" (cond (hsqldb?) "() READS SQL DATA DYNAMIC RESULT SETS
|
|||
["Banana" "yellow" nil 92.2]
|
||||
["Peach" nil 139 90.0]
|
||||
["Orange" "juicy" 89 88.6]]
|
||||
{:return-keys false})))
|
||||
{:return-keys false})
|
||||
(t)))))
|
||||
|
||||
(create-clojure-test)
|
||||
|
|
|
|||
|
|
@ -1,10 +1,17 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.transaction-test
|
||||
"Stub test namespace for transaction handling."
|
||||
(:require [next.jdbc.specs :as specs]
|
||||
[next.jdbc.transaction]))
|
||||
(:require [clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc :as jdbc]
|
||||
[next.jdbc.specs :as specs]
|
||||
[next.jdbc.test-fixtures :refer [with-test-db db ds column
|
||||
default-options
|
||||
derby? mssql? mysql? postgres?]]
|
||||
[next.jdbc.transaction :as tx]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(use-fixtures :once with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
|
|
|||
|
|
@ -1,19 +1,14 @@
|
|||
;; copyright (c) 2020-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2020-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc.types-test
|
||||
"Some tests for the type-assist functions."
|
||||
(:require [lazytest.core :refer [defdescribe describe it expect]]
|
||||
(:require [clojure.test :refer [deftest is]]
|
||||
[next.jdbc.types :refer [as-varchar]]))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
(defdescribe as-varchar-tests
|
||||
(deftest as-varchar-test
|
||||
(let [v (as-varchar "Hello")]
|
||||
(describe "produces a function"
|
||||
(it "yields the original value when invoked"
|
||||
(expect (fn? v))
|
||||
(expect (= "Hello" (v)))))
|
||||
(describe "carries metadata"
|
||||
(it "has a `set-parameter` function"
|
||||
(expect (contains? (meta v) 'next.jdbc.prepare/set-parameter))
|
||||
(expect (fn? (get (meta v) 'next.jdbc.prepare/set-parameter)))))))
|
||||
(is (= "Hello" (v)))
|
||||
(is (contains? (meta v) 'next.jdbc.prepare/set-parameter))
|
||||
(is (fn? (get (meta v) 'next.jdbc.prepare/set-parameter)))))
|
||||
|
|
|
|||
|
|
@ -1,46 +1,42 @@
|
|||
;; copyright (c) 2019-2025 Sean Corfield, all rights reserved
|
||||
;; copyright (c) 2019-2021 Sean Corfield, all rights reserved
|
||||
|
||||
(ns next.jdbc-test
|
||||
"Basic tests for the primary API of `next.jdbc`."
|
||||
(:require
|
||||
[clojure.core.reducers :as r]
|
||||
(:require [clojure.core.reducers :as r]
|
||||
[clojure.string :as str]
|
||||
[lazytest.core :refer [around defdescribe it ok?]]
|
||||
[lazytest.experimental.interfaces.clojure-test :refer [deftest is testing
|
||||
thrown?]]
|
||||
[clojure.test :refer [deftest is testing use-fixtures]]
|
||||
[next.jdbc :as jdbc]
|
||||
[next.jdbc.connection :as c]
|
||||
[next.jdbc.test-fixtures
|
||||
:refer [with-test-db db ds column
|
||||
default-options stored-proc?
|
||||
derby? hsqldb? jtds? mssql? mysql? postgres? sqlite?]]
|
||||
[next.jdbc.prepare :as prep]
|
||||
[next.jdbc.result-set :as rs]
|
||||
[next.jdbc.specs :as specs]
|
||||
[next.jdbc.test-fixtures
|
||||
:refer [col-kw column db default-options derby? ds h2? hsqldb?
|
||||
index jtds? mssql? mysql? postgres? sqlite? stored-proc?
|
||||
with-test-db xtdb?]]
|
||||
[next.jdbc.types :as types])
|
||||
(:import
|
||||
(:import (com.zaxxer.hikari HikariDataSource)
|
||||
(com.mchange.v2.c3p0 ComboPooledDataSource PooledDataSource)
|
||||
(com.zaxxer.hikari HikariDataSource)
|
||||
(java.sql ResultSet ResultSetMetaData)))
|
||||
|
||||
(set! *warn-on-reflection* true)
|
||||
|
||||
;; around each test because of the folding tests using 1,000 rows
|
||||
(use-fixtures :each with-test-db)
|
||||
|
||||
(specs/instrument)
|
||||
|
||||
(defdescribe spec-tests
|
||||
"sanity checks on instrumented function calls"
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(deftest spec-tests
|
||||
(let [db-spec {:dbtype "h2:mem" :dbname "clojure_test"}]
|
||||
(it "succeeds with a basic db-spec"
|
||||
(ok? #(jdbc/get-datasource db-spec))
|
||||
(ok? #(jdbc/get-connection db-spec)))
|
||||
;; some sanity checks on instrumented function calls:
|
||||
(jdbc/get-datasource db-spec)
|
||||
(jdbc/get-connection db-spec)
|
||||
;; and again with options:
|
||||
(let [db-spec' (jdbc/with-options db-spec {})]
|
||||
(it "succeeds with an option-wrapped db-spec"
|
||||
(ok? #(jdbc/get-datasource db-spec'))
|
||||
(ok? #(jdbc/get-connection db-spec'))))))
|
||||
(jdbc/get-datasource db-spec')
|
||||
(jdbc/get-connection db-spec'))))
|
||||
|
||||
(deftest basic-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
;; use ds-opts instead of (ds) anywhere you want default options applied:
|
||||
(let [ds-opts (jdbc/with-options (ds) (default-options))]
|
||||
(testing "plan"
|
||||
|
|
@ -64,27 +60,27 @@
|
|||
(jdbc/execute-one!
|
||||
ds-opts
|
||||
["select * from fruit where appearance = ?" "red"]))))
|
||||
(is (= "red" ((col-kw :fruit/looks-like)
|
||||
(is (= "red" (:fruit/looks-like
|
||||
(jdbc/execute-one!
|
||||
ds-opts
|
||||
[(str "select appearance as looks_like from fruit where " (index) " = ?") 1]
|
||||
["select appearance as looks_like from fruit where id = ?" 1]
|
||||
jdbc/snake-kebab-opts))))
|
||||
(let [ds' (jdbc/with-options ds-opts jdbc/snake-kebab-opts)]
|
||||
(is (= "red" ((col-kw :fruit/looks-like)
|
||||
(is (= "red" (:fruit/looks-like
|
||||
(jdbc/execute-one!
|
||||
ds'
|
||||
[(str "select appearance as looks_like from fruit where " (index) " = ?") 1])))))
|
||||
["select appearance as looks_like from fruit where id = ?" 1])))))
|
||||
(jdbc/with-transaction+options [ds' (jdbc/with-options ds-opts jdbc/snake-kebab-opts)]
|
||||
(is (= (merge (default-options) jdbc/snake-kebab-opts)
|
||||
(:options ds')))
|
||||
(is (= "red" ((col-kw :fruit/looks-like)
|
||||
(is (= "red" (:fruit/looks-like
|
||||
(jdbc/execute-one!
|
||||
ds'
|
||||
[(str "select appearance as looks_like from fruit where " (index) " = ?") 1])))))
|
||||
["select appearance as looks_like from fruit where id = ?" 1])))))
|
||||
(is (= "red" (:looks-like
|
||||
(jdbc/execute-one!
|
||||
ds-opts
|
||||
[(str "select appearance as looks_like from fruit where " (index) " = ?") 1]
|
||||
["select appearance as looks_like from fruit where id = ?" 1]
|
||||
jdbc/unqualified-snake-kebab-opts)))))
|
||||
(testing "execute!"
|
||||
(let [rs (jdbc/execute!
|
||||
|
|
@ -99,7 +95,7 @@
|
|||
(is (= 1 ((column :FRUIT/ID) (first rs)))))
|
||||
(let [rs (jdbc/execute!
|
||||
ds-opts
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
{:builder-fn rs/as-maps})]
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
|
|
@ -108,23 +104,22 @@
|
|||
(is (= 4 ((column :FRUIT/ID) (last rs)))))
|
||||
(let [rs (jdbc/execute!
|
||||
ds-opts
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
{:builder-fn rs/as-arrays})]
|
||||
(is (every? vector? rs))
|
||||
(is (= 5 (count rs)))
|
||||
(is (every? #(= 5 (count %)) rs))
|
||||
;; columns come first
|
||||
(is (every? (if (xtdb?) keyword? qualified-keyword?) (first rs)))
|
||||
(is (every? qualified-keyword? (first rs)))
|
||||
;; :FRUIT/ID should be first column
|
||||
(is (= (column :FRUIT/ID) (ffirst rs)))
|
||||
;; and all its corresponding values should be ints
|
||||
(is (every? int? (map first (rest rs))))
|
||||
(let [n (max (.indexOf ^java.util.List (first rs) :name) 1)]
|
||||
(is (every? string? (map #(nth % n) (rest rs)))))))
|
||||
(is (every? string? (map second (rest rs))))))
|
||||
(testing "execute! with adapter"
|
||||
(let [rs (jdbc/execute! ; test again, with adapter and lower columns
|
||||
ds-opts
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
{:builder-fn (rs/as-arrays-adapter
|
||||
rs/as-lower-arrays
|
||||
(fn [^ResultSet rs _ ^Integer i]
|
||||
|
|
@ -133,17 +128,16 @@
|
|||
(is (= 5 (count rs)))
|
||||
(is (every? #(= 5 (count %)) rs))
|
||||
;; columns come first
|
||||
(is (every? (if (xtdb?) keyword? qualified-keyword?) (first rs)))
|
||||
(is (every? qualified-keyword? (first rs)))
|
||||
;; :fruit/id should be first column
|
||||
(is (= (col-kw :fruit/id) (ffirst rs)))
|
||||
(is (= :fruit/id (ffirst rs)))
|
||||
;; and all its corresponding values should be ints
|
||||
(is (every? int? (map first (rest rs))))
|
||||
(let [n (max (.indexOf ^java.util.List (first rs) :name) 1)]
|
||||
(is (every? string? (map #(nth % n) (rest rs)))))))
|
||||
(is (every? string? (map second (rest rs))))))
|
||||
(testing "execute! with unqualified"
|
||||
(let [rs (jdbc/execute!
|
||||
(ds)
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
{:builder-fn rs/as-unqualified-maps})]
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
|
|
@ -152,7 +146,7 @@
|
|||
(is (= 4 ((column :ID) (last rs)))))
|
||||
(let [rs (jdbc/execute!
|
||||
ds-opts
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
{:builder-fn rs/as-unqualified-arrays})]
|
||||
(is (every? vector? rs))
|
||||
(is (= 5 (count rs)))
|
||||
|
|
@ -163,12 +157,11 @@
|
|||
(is (= (column :ID) (ffirst rs)))
|
||||
;; and all its corresponding values should be ints
|
||||
(is (every? int? (map first (rest rs))))
|
||||
(let [n (max (.indexOf ^java.util.List (first rs) :name) 1)]
|
||||
(is (every? string? (map #(nth % n) (rest rs)))))))
|
||||
(is (every? string? (map second (rest rs))))))
|
||||
(testing "execute! with :max-rows / :maxRows"
|
||||
(let [rs (jdbc/execute!
|
||||
ds-opts
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
{:max-rows 2})]
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
|
|
@ -177,7 +170,7 @@
|
|||
(is (= 2 ((column :FRUIT/ID) (last rs)))))
|
||||
(let [rs (jdbc/execute!
|
||||
ds-opts
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
{:statement {:maxRows 2}})]
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
|
|
@ -189,7 +182,7 @@
|
|||
(let [rs (with-open [con (jdbc/get-connection (ds))
|
||||
ps (jdbc/prepare
|
||||
con
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
(default-options))]
|
||||
(jdbc/execute! ps))]
|
||||
(is (every? map? rs))
|
||||
|
|
@ -201,7 +194,7 @@
|
|||
(let [rs (with-open [con (jdbc/get-connection (ds))
|
||||
ps (jdbc/prepare
|
||||
con
|
||||
[(str "select * from fruit where " (index) " = ?")]
|
||||
["select * from fruit where id = ?"]
|
||||
(default-options))]
|
||||
(jdbc/execute! (prep/set-parameters ps [4]) nil {}))]
|
||||
(is (every? map? rs))
|
||||
|
|
@ -212,7 +205,7 @@
|
|||
;; default options do not flow over get-connection
|
||||
(let [rs (with-open [con (jdbc/get-connection (ds))]
|
||||
(jdbc/execute! (prep/statement con (default-options))
|
||||
[(str "select * from fruit order by " (index))]))]
|
||||
["select * from fruit order by id"]))]
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
(is (= 4 (count rs)))
|
||||
|
|
@ -221,12 +214,11 @@
|
|||
;; default options do not flow over get-connection
|
||||
(let [rs (with-open [con (jdbc/get-connection (ds))]
|
||||
(jdbc/execute! (prep/statement con (default-options))
|
||||
[(str "select * from fruit where " (index) " = 4")]))]
|
||||
["select * from fruit where id = 4"]))]
|
||||
(is (every? map? rs))
|
||||
(is (every? meta rs))
|
||||
(is (= 1 (count rs)))
|
||||
(is (= 4 ((column :FRUIT/ID) (first rs))))))
|
||||
(when-not (xtdb?)
|
||||
(testing "transact"
|
||||
(is (= [{:next.jdbc/update-count 1}]
|
||||
(jdbc/transact (ds)
|
||||
|
|
@ -241,7 +233,6 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(is (= [{:next.jdbc/update-count 1}]
|
||||
(jdbc/with-transaction [t (ds) {:rollback-only true}]
|
||||
(is (jdbc/active-tx?) "should be in a transaction")
|
||||
(is (jdbc/active-tx? t) "connection should be in a transaction")
|
||||
(jdbc/execute! t ["
|
||||
INSERT INTO fruit (name, appearance, cost, grade)
|
||||
VALUES ('Pear', 'green', 49, 47)
|
||||
|
|
@ -253,7 +244,6 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(is (= [{:next.jdbc/update-count 1}]
|
||||
(jdbc/with-transaction [t con {:rollback-only true}]
|
||||
(is (jdbc/active-tx?) "should be in a transaction")
|
||||
(is (jdbc/active-tx? t) "connection should be in a transaction")
|
||||
(jdbc/execute! t ["
|
||||
INSERT INTO fruit (name, appearance, cost, grade)
|
||||
VALUES ('Pear', 'green', 49, 47)
|
||||
|
|
@ -268,7 +258,6 @@ INSERT INTO fruit (name, appearance, cost, grade)
|
|||
VALUES ('Pear', 'green', 49, 47)
|
||||
"])
|
||||
(is (jdbc/active-tx?) "should be in a transaction")
|
||||
(is (jdbc/active-tx? t) "connection should be in a transaction")
|
||||
(throw (ex-info "abort" {})))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(is (not (jdbc/active-tx?)) "should not be in a transaction")
|
||||
|
|
@ -281,7 +270,6 @@ INSERT INTO fruit (name, appearance, cost, grade)
|
|||
VALUES ('Pear', 'green', 49, 47)
|
||||
"])
|
||||
(is (jdbc/active-tx?) "should be in a transaction")
|
||||
(is (jdbc/active-tx? t) "connection should be in a transaction")
|
||||
(throw (ex-info "abort" {})))))
|
||||
(is (= 4 (count (jdbc/execute! con ["select * from fruit"]))))
|
||||
(is (= ac (.getAutoCommit con))))))
|
||||
|
|
@ -295,7 +283,6 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(.rollback t)
|
||||
;; still in a next.jdbc TX even tho' we rolled back!
|
||||
(is (jdbc/active-tx?) "should be in a transaction")
|
||||
(is (jdbc/active-tx? t) "connection should be in a transaction")
|
||||
result))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(is (not (jdbc/active-tx?)) "should not be in a transaction")
|
||||
|
|
@ -322,7 +309,6 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(.rollback t save-point)
|
||||
;; still in a next.jdbc TX even tho' we rolled back to a save point!
|
||||
(is (jdbc/active-tx?) "should be in a transaction")
|
||||
(is (jdbc/active-tx? t) "connection should be in a transaction")
|
||||
result))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(is (not (jdbc/active-tx?)) "should not be in a transaction")
|
||||
|
|
@ -362,12 +348,11 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(.rollback t save-point)
|
||||
result))))
|
||||
(is (= 4 (count (jdbc/execute! con ["select * from fruit"]))))
|
||||
(is (= ac (.getAutoCommit con))))))))
|
||||
(is (= ac (.getAutoCommit con)))))))
|
||||
|
||||
(deftest issue-146
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
;; since we use an embedded PostgreSQL data source, we skip this:
|
||||
(when-not (or (postgres?) (xtdb?)
|
||||
(when-not (or (postgres?)
|
||||
;; and now we skip MS SQL because we can't use the db-spec
|
||||
;; we'd need to build the jdbcUrl with encryption turned off:
|
||||
(and (mssql?) (not (jtds?))))
|
||||
|
|
@ -482,7 +467,6 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
|
||||
#_
|
||||
(deftest duplicate-insert-test
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
;; this is primarily a look at exception types/information for #226
|
||||
(try
|
||||
(jdbc/execute! (ds) ["
|
||||
|
|
@ -505,42 +489,14 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
"\n\t" (ex-message t)))))
|
||||
|
||||
(deftest bool-tests
|
||||
{:context [(around [f] (with-test-db f))]} ;; Ensure the test database is used
|
||||
(testing (str "bool-tests for " (:dbtype (db)))
|
||||
(let [lit-t (cond (hsqldb?) "(1=1)" (mssql?) "1" :else "TRUE")
|
||||
lit-f (cond (hsqldb?) "(1=0)" (mssql?) "0" :else "FALSE")]
|
||||
(when-not (or (hsqldb?) (derby?))
|
||||
(testing "literal TRUE select"
|
||||
(is (= {(column :V) (if (or (sqlite?) (mysql?) (mssql?)) 1 true)}
|
||||
(jdbc/execute-one! (ds) [(str "SELECT " lit-t " AS V")]))))
|
||||
(testing "literal FALSE select"
|
||||
(is (= {(column :V) (if (or (sqlite?) (mysql?) (mssql?)) 0 false)}
|
||||
(jdbc/execute-one! (ds) [(str "SELECT " lit-f " AS V")])))))
|
||||
(testing "literal TRUE insert"
|
||||
(jdbc/execute-one!
|
||||
(ds)
|
||||
[(str "insert into btest (" (if (xtdb?) "_id" "name") ",is_it,twiddle)"
|
||||
" values ('lit_t'," lit-t ","
|
||||
(if (or (derby?) (sqlite?) (h2?) (mssql?) (xtdb?)) "1" "b'1'")
|
||||
")")]))
|
||||
(testing "literal FALSE insert"
|
||||
(jdbc/execute-one!
|
||||
(ds)
|
||||
[(str "insert into btest (" (if (xtdb?) "_id" "name") ",is_it,twiddle)"
|
||||
" values ('lit_f'," lit-f ","
|
||||
(if (or (derby?) (sqlite?) (h2?) (mssql?) (xtdb?)) "0" "b'0'")
|
||||
")")]))
|
||||
(testing "BIT/BOOLEAN value insertion"
|
||||
(doseq [[n b] [["zero" 0] ["one" 1] ["false" false] ["true" true]]
|
||||
:let [v-bit (if (number? b) b (if b 1 0))
|
||||
v-bool (if (number? b) (pos? b) b)]]
|
||||
(jdbc/execute-one!
|
||||
(ds)
|
||||
[(str "insert into btest ("
|
||||
(if (xtdb?) "_id" "name")
|
||||
",is_it,twiddle) values (?,?,?)")
|
||||
["insert into btest (name,is_it,twiddle) values (?,?,?)"
|
||||
n
|
||||
(if (or (postgres?) (xtdb?))
|
||||
(if (postgres?)
|
||||
(types/as-boolean b)
|
||||
b) ; 0, 1, false, true are all acceptable
|
||||
(cond (hsqldb?)
|
||||
|
|
@ -548,20 +504,18 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(postgres?)
|
||||
(types/as-other v-bit) ; really postgres??
|
||||
:else
|
||||
v-bit)])))
|
||||
(testing "BOOLEAN results from SELECT"
|
||||
v-bit)]))
|
||||
(let [data (jdbc/execute! (ds) ["select * from btest"]
|
||||
(default-options))]
|
||||
(if (sqlite?)
|
||||
(is (every? number? (map (column :BTEST/IS_IT) data)))
|
||||
(is (every? boolean? (map (column :BTEST/IS_IT) data))))
|
||||
(if (or (sqlite?) (derby?) (xtdb?))
|
||||
(if (or (sqlite?) (derby?))
|
||||
(is (every? number? (map (column :BTEST/TWIDDLE) data)))
|
||||
(is (every? boolean? (map (column :BTEST/TWIDDLE) data))))))
|
||||
(testing "BOOLEAN read column by index"
|
||||
(is (every? boolean? (map (column :BTEST/TWIDDLE) data)))))
|
||||
(let [data (jdbc/execute! (ds) ["select * from btest"]
|
||||
(cond-> (default-options)
|
||||
(or (sqlite?) (xtdb?))
|
||||
(sqlite?)
|
||||
(assoc :builder-fn
|
||||
(rs/builder-adapter
|
||||
rs/as-maps
|
||||
|
|
@ -569,11 +523,8 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(let [rsm ^ResultSetMetaData (:rsmeta builder)]
|
||||
(rs/read-column-by-index
|
||||
;; we only use bit and bool for
|
||||
;; sqlite (not boolean), and
|
||||
;; int8 and bool for xtdb:
|
||||
(if (#{"BIT" "BOOL"
|
||||
"int8" "bool"}
|
||||
(.getColumnTypeName rsm i))
|
||||
;; sqlite (not boolean)
|
||||
(if (#{"BIT" "BOOL"} (.getColumnTypeName rsm i))
|
||||
(.getBoolean rs i)
|
||||
(.getObject rs i))
|
||||
rsm
|
||||
|
|
@ -581,22 +532,19 @@ VALUES ('Pear', 'green', 49, 47)
|
|||
(is (every? boolean? (map (column :BTEST/IS_IT) data)))
|
||||
(if (derby?)
|
||||
(is (every? number? (map (column :BTEST/TWIDDLE) data)))
|
||||
(is (every? boolean? (map (column :BTEST/TWIDDLE) data))))))
|
||||
(testing "BOOLEAN via coercion"
|
||||
(is (every? boolean? (map (column :BTEST/TWIDDLE) data)))))
|
||||
(let [data (reduce (fn [acc row]
|
||||
(conj acc (cond-> (select-keys row [:is_it :twiddle])
|
||||
(sqlite?)
|
||||
(update :is_it pos?)
|
||||
(or (sqlite?) (derby?) (xtdb?))
|
||||
(or (sqlite?) (derby?))
|
||||
(update :twiddle pos?))))
|
||||
[]
|
||||
(jdbc/plan (ds) ["select * from btest"]))]
|
||||
(is (every? boolean? (map :is_it data)))
|
||||
(is (every? boolean? (map :twiddle data))))))))
|
||||
(is (every? boolean? (map :twiddle data)))))
|
||||
|
||||
(deftest execute-batch-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(when-not (xtdb?)
|
||||
(testing "simple batch insert"
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(jdbc/with-transaction [t (ds) {:rollback-only true}]
|
||||
|
|
@ -695,11 +643,9 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
;; Derby and SQLite only return one generated key per batch so there
|
||||
;; are only three keys, plus the overall count here:
|
||||
(is (< 3 (count results))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))))
|
||||
|
||||
(deftest execute-batch-connectable-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(when-not (xtdb?)
|
||||
(testing "simple batch insert"
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
|
|
@ -717,7 +663,7 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(jdbc/execute-one! (ds) ["delete from fruit where id > 4"])))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(testing "batch with-options"
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
|
|
@ -736,19 +682,12 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(jdbc/execute-one! (ds) ["delete from fruit where id > 4"])))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(testing "batch with-logging"
|
||||
(let [tracker (atom {:opts 0, :log1 0 :log2 0})
|
||||
;; opts and log2 never get invoked with batch/prepare -- because
|
||||
;; no fn opts are invoked on that path, and no post-logging is done:
|
||||
track-fn (fn ([k] (fn [& _] (swap! tracker update k inc)))
|
||||
([k f] (fn [& args] (swap! tracker update k inc) (apply f args))))]
|
||||
(is (= {:opts 0, :log1 0 :log2 0} @tracker))
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
;; wrapping a non-connection will lose the wrapper:
|
||||
(let [result (jdbc/execute-batch! (jdbc/with-options (ds) {:builder-fn (track-fn :opts rs/as-maps)})
|
||||
(let [result (jdbc/execute-batch! (jdbc/with-logging (ds) println println)
|
||||
"INSERT INTO fruit (name, appearance) VALUES (?,?)"
|
||||
[["fruit1" "one"]
|
||||
["fruit2" "two"]
|
||||
|
|
@ -762,109 +701,8 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(is (= {:opts 0, :log1 0 :log2 0} @tracker))
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
;; wrapping a non-connection will lose the wrapper:
|
||||
(let [result (jdbc/execute-batch! (jdbc/with-logging (ds) {:builder-fn (track-fn :opts rs/as-maps)})
|
||||
"INSERT INTO fruit (name, appearance) VALUES (?,?)"
|
||||
[["fruit1" "one"]
|
||||
["fruit2" "two"]
|
||||
["fruit3" "three"]
|
||||
["fruit4" "four"]
|
||||
["fruit5" "five"]
|
||||
["fruit6" "six"]
|
||||
["fruit7" "seven"]
|
||||
["fruit8" "eight"]
|
||||
["fruit9" "nine"]]
|
||||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(is (= {:opts 0, :log1 0 :log2 0} @tracker))
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
(with-open [con (jdbc/get-connection (ds))]
|
||||
(let [result (jdbc/execute-batch! (jdbc/with-options con {:builder-fn (track-fn :opts rs/as-maps)})
|
||||
"INSERT INTO fruit (name, appearance) VALUES (?,?)"
|
||||
[["fruit1" "one"]
|
||||
["fruit2" "two"]
|
||||
["fruit3" "three"]
|
||||
["fruit4" "four"]
|
||||
["fruit5" "five"]
|
||||
["fruit6" "six"]
|
||||
["fruit7" "seven"]
|
||||
["fruit8" "eight"]
|
||||
["fruit9" "nine"]]
|
||||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(is (= {:opts 0, :log1 0 :log2 0} @tracker))
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
(with-open [con (jdbc/get-connection (ds))]
|
||||
(let [result (jdbc/execute-batch! (jdbc/with-logging con (track-fn :log1) (track-fn :log2))
|
||||
"INSERT INTO fruit (name, appearance) VALUES (?,?)"
|
||||
[["fruit1" "one"]
|
||||
["fruit2" "two"]
|
||||
["fruit3" "three"]
|
||||
["fruit4" "four"]
|
||||
["fruit5" "five"]
|
||||
["fruit6" "six"]
|
||||
["fruit7" "seven"]
|
||||
["fruit8" "eight"]
|
||||
["fruit9" "nine"]]
|
||||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(is (= {:opts 0, :log1 1 :log2 0} @tracker))
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
(with-open [con (jdbc/get-connection (ds))]
|
||||
(let [result (jdbc/execute-batch! (jdbc/with-options
|
||||
(jdbc/with-logging con (track-fn :log1) (track-fn :log2))
|
||||
{:builder-fn (track-fn :opts rs/as-maps)})
|
||||
"INSERT INTO fruit (name, appearance) VALUES (?,?)"
|
||||
[["fruit1" "one"]
|
||||
["fruit2" "two"]
|
||||
["fruit3" "three"]
|
||||
["fruit4" "four"]
|
||||
["fruit5" "five"]
|
||||
["fruit6" "six"]
|
||||
["fruit7" "seven"]
|
||||
["fruit8" "eight"]
|
||||
["fruit9" "nine"]]
|
||||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(is (= {:opts 0, :log1 2 :log2 0} @tracker))
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
(with-open [con (jdbc/get-connection (ds))]
|
||||
(let [result (jdbc/execute-batch! (jdbc/with-logging
|
||||
(jdbc/with-options con
|
||||
{:builder-fn (track-fn :opts rs/as-maps)})
|
||||
(track-fn :log1) (track-fn :log2))
|
||||
"INSERT INTO fruit (name, appearance) VALUES (?,?)"
|
||||
[["fruit1" "one"]
|
||||
["fruit2" "two"]
|
||||
["fruit3" "three"]
|
||||
["fruit4" "four"]
|
||||
["fruit5" "five"]
|
||||
["fruit6" "six"]
|
||||
["fruit7" "seven"]
|
||||
["fruit8" "eight"]
|
||||
["fruit9" "nine"]]
|
||||
{})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(is (= {:opts 0, :log1 3 :log2 0} @tracker))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))))
|
||||
(jdbc/execute-one! (ds) ["delete from fruit where id > 4"])))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(testing "small batch insert"
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
(try
|
||||
|
|
@ -882,7 +720,7 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
{:batch-size 3})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(jdbc/execute-one! (ds) ["delete from fruit where id > 4"])))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(testing "big batch insert"
|
||||
(is (= [1 1 1 1 1 1 1 1 1 13]
|
||||
|
|
@ -901,7 +739,7 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
{:batch-size 8})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(jdbc/execute-one! (ds) ["delete from fruit where id > 4"])))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))
|
||||
(testing "large batch insert"
|
||||
(when-not (or (jtds?) (sqlite?))
|
||||
|
|
@ -922,7 +760,7 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
:large true})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))))
|
||||
(jdbc/execute-one! (ds) ["delete from fruit where id > 4"])))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))))
|
||||
(testing "return generated keys"
|
||||
(when-not (or (mssql?) (sqlite?))
|
||||
|
|
@ -946,31 +784,26 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
:return-generated-keys true})]
|
||||
(conj result (count (jdbc/execute! (ds) ["select * from fruit"]))))
|
||||
(finally
|
||||
(jdbc/execute-one! (ds) [(str "delete from fruit where " (index) " > 4")])))]
|
||||
(jdbc/execute-one! (ds) ["delete from fruit where id > 4"])))]
|
||||
(is (= 13 (last results)))
|
||||
(is (every? map? (butlast results)))
|
||||
;; Derby and SQLite only return one generated key per batch so there
|
||||
;; are only three keys, plus the overall count here:
|
||||
(is (< 3 (count results))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"]))))))))
|
||||
(is (= 4 (count (jdbc/execute! (ds) ["select * from fruit"])))))))
|
||||
|
||||
(deftest folding-test
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(jdbc/execute-one! (ds) ["delete from fruit"])
|
||||
(if (xtdb?)
|
||||
(with-open [con (jdbc/get-connection (ds))
|
||||
ps (jdbc/prepare con ["insert into fruit(_id,name) values (?,?)"])]
|
||||
(jdbc/execute-batch! ps (mapv #(vector % (str "Fruit-" %)) (range 1 1001))))
|
||||
(with-open [con (jdbc/get-connection (ds))
|
||||
ps (jdbc/prepare con ["insert into fruit(name) values (?)"])]
|
||||
(jdbc/execute-batch! ps (mapv #(vector (str "Fruit-" %)) (range 1 1001)))))
|
||||
(jdbc/execute-batch! ps (mapv #(vector (str "Fruit-" %)) (range 1 1001))))
|
||||
(testing "foldable result set"
|
||||
(testing "from a Connection"
|
||||
(let [result
|
||||
(with-open [con (jdbc/get-connection (ds))]
|
||||
(r/foldcat
|
||||
(r/map (column :FRUIT/NAME)
|
||||
(jdbc/plan con [(str "select * from fruit order by " (index))]
|
||||
(jdbc/plan con ["select * from fruit order by id"]
|
||||
(default-options)))))]
|
||||
(is (= 1000 (count result)))
|
||||
(is (= "Fruit-1" (first result)))
|
||||
|
|
@ -982,7 +815,7 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
(try
|
||||
(r/fold n r/cat r/append!
|
||||
(r/map (column :FRUIT/NAME)
|
||||
(jdbc/plan (ds) [(str "select * from fruit order by " (index))]
|
||||
(jdbc/plan (ds) ["select * from fruit order by id"]
|
||||
(default-options))))
|
||||
(catch java.util.concurrent.RejectedExecutionException _
|
||||
[]))]
|
||||
|
|
@ -993,7 +826,7 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
(let [result
|
||||
(with-open [con (jdbc/get-connection (ds))
|
||||
stmt (jdbc/prepare con
|
||||
[(str "select * from fruit order by " (index))]
|
||||
["select * from fruit order by id"]
|
||||
(default-options))]
|
||||
(r/foldcat
|
||||
(r/map (column :FRUIT/NAME)
|
||||
|
|
@ -1007,16 +840,15 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
stmt (prep/statement con (default-options))]
|
||||
(r/foldcat
|
||||
(r/map (column :FRUIT/NAME)
|
||||
(jdbc/plan stmt [(str "select * from fruit order by " (index))]
|
||||
(jdbc/plan stmt ["select * from fruit order by id"]
|
||||
(default-options)))))]
|
||||
(is (= 1000 (count result)))
|
||||
(is (= "Fruit-1" (first result)))
|
||||
(is (= "Fruit-1000" (last result)))))))
|
||||
|
||||
(deftest connection-tests
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(testing "datasource via jdbcUrl"
|
||||
(when-not (or (postgres?) (xtdb?))
|
||||
(when-not (postgres?)
|
||||
(let [[url etc] (#'c/spec->url+etc (db))
|
||||
ds (jdbc/get-datasource (assoc etc :jdbcUrl url))]
|
||||
(cond (derby?) (is (= {:create true} etc))
|
||||
|
|
@ -1041,7 +873,6 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
(is (instance? java.sql.Connection con)))))))
|
||||
|
||||
(deftest multi-rs
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(when (mssql?)
|
||||
(testing "script with multiple result sets"
|
||||
(let [multi-rs
|
||||
|
|
@ -1090,7 +921,6 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
(println 'call-proc (:dbtype (db)) (ex-message t) (some-> t (ex-cause) (ex-message))))))))
|
||||
|
||||
(deftest plan-misuse
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(let [s (pr-str (jdbc/plan (ds) ["select * from fruit"]))]
|
||||
(is (re-find #"missing reduction" s)))
|
||||
(let [s (pr-str (into [] (jdbc/plan (ds) ["select * from fruit"])))]
|
||||
|
|
@ -1101,18 +931,17 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
(let [s (pr-str (into [] (take 3) (jdbc/plan (ds) ["select * from fruit"]
|
||||
(default-options))))]
|
||||
(is (or (re-find #"missing `map` or `reduce`" s)
|
||||
(re-find #"(?i)^\[(#:fruit)?\{.*:_?id.*\}\]$" s))))
|
||||
(is (every? #(re-find #"(?i)^(#:fruit)?\{.*:_?id.*\}$" %)
|
||||
(re-find #"(?i)^\[#:fruit\{.*:id.*\}\]$" s))))
|
||||
(is (every? #(re-find #"(?i)^#:fruit\{.*:id.*\}$" %)
|
||||
(into [] (map str) (jdbc/plan (ds) ["select * from fruit"]
|
||||
(default-options)))))
|
||||
(is (every? #(re-find #"(?i)^(#:fruit)?\{.*:_?id.*\}$" %)
|
||||
(is (every? #(re-find #"(?i)^#:fruit\{.*:id.*\}$" %)
|
||||
(into [] (map pr-str) (jdbc/plan (ds) ["select * from fruit"]
|
||||
(default-options)))))
|
||||
(is (thrown? IllegalArgumentException
|
||||
(doall (take 3 (jdbc/plan (ds) ["select * from fruit"]))))))
|
||||
|
||||
(deftest issue-204
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(testing "against a Connection"
|
||||
(is (seq (with-open [con (jdbc/get-connection (ds))]
|
||||
(jdbc/on-connection
|
||||
|
|
@ -1133,7 +962,6 @@ INSERT INTO fruit (name, appearance) VALUES (?,?)
|
|||
(jdbc/execute! x ["select * from fruit"]))))))
|
||||
|
||||
(deftest issue-256
|
||||
{:context [(around [f] (with-test-db f))]}
|
||||
(testing "against a Connection"
|
||||
(is (seq (with-open [con (jdbc/get-connection (ds))]
|
||||
(jdbc/on-connection+options
|
||||
|
|
|
|||
Loading…
Reference in a new issue