Test result set metadata
This commit is contained in:
parent
0952503860
commit
e406c90d6f
1 changed files with 10 additions and 1 deletions
|
|
@ -7,6 +7,7 @@
|
|||
[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 [with-test-db db ds
|
||||
derby? postgres? sqlite?]])
|
||||
|
|
@ -91,4 +92,12 @@
|
|||
(is (vector? rs))
|
||||
(is (every? map? rs)))))))))
|
||||
|
||||
(deftest result-set-metadata-datafy-tests)
|
||||
(deftest result-set-metadata-datafy-tests
|
||||
(testing "result set metadata datafication"
|
||||
(let [data (reduce (fn [_ row] (reduced (rs/metadata row)))
|
||||
nil
|
||||
(jdbc/plan (ds) ["select * from fruit"]))]
|
||||
(is (vector? data))
|
||||
(is (= 5 (count data)))
|
||||
(is (every? map? data))
|
||||
(is (every? :label data)))))
|
||||
|
|
|
|||
Loading…
Reference in a new issue