luciano/next-jdbc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a test for -execute-all

Browse source
This commit is contained in:
Sean Corfield 2019-04-19 21:59:42 -07:00
parent 12e396683c
commit e3c193e936
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
test/next/jdbc/result_set_test.clj
View file

@ -3,9 +3,8 @@
(ns next.jdbc.result-set-test (ns next.jdbc.result-set-test
"Stub test namespace for the result set functions. "Stub test namespace for the result set functions.
There's so much that should be tested here: What's left to be tested:
* ReadableColumn protocol extension point * ReadableColumn protocol extension point"
* -execute-one and -execute-all implementations"
(:require [clojure.core.protocols :as core-p] (:require [clojure.core.protocols :as core-p]
[clojure.datafy :as d] [clojure.datafy :as d]
[clojure.string :as str] [clojure.string :as str]
@ -75,7 +74,15 @@
{})] {})]
(is (map? row)) (is (map? row))
(is (= 1 (:FRUIT/ID row))) (is (= 1 (:FRUIT/ID row)))
(is (= "Apple" (:FRUIT/NAME row))))) (is (= "Apple" (:FRUIT/NAME row))))
(let [rs (p/-execute-all (ds)
["select * from fruit order by id"]
{})]
(is (every? map? rs))
(is (= 1 (:FRUIT/ID (first rs))))
(is (= "Apple" (:FRUIT/NAME (first rs))))
(is (= 4 (:FRUIT/ID (last rs))))
(is (= "Orange" (:FRUIT/NAME (last rs))))))
(testing "unqualified row builder" (testing "unqualified row builder"
(let [row (p/-execute-one (ds) (let [row (p/-execute-one (ds)
["select * from fruit where id = ?" 2] ["select * from fruit where id = ?" 2]