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

Add plan bool/bit test to match SQLite Tips & Tricks

Browse source
This commit is contained in:
Sean Corfield 2020-07-22 16:35:38 -07:00
parent db857d335d
commit 583aa5b545
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/next/jdbc_test.clj
View file

@ -355,7 +355,17 @@ VALUES ('Pear', 'green', 49, 47)
(is (every? boolean? (map (column :BTEST/IS_IT) data))) (is (every? boolean? (map (column :BTEST/IS_IT) data)))
(if (derby?) (if (derby?)
(is (every? number? (map (column :BTEST/TWIDDLE) data))) (is (every? number? (map (column :BTEST/TWIDDLE) data)))
(is (every? boolean? (map (column :BTEST/TWIDDLE) data)))))) (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?))
(update :twiddle pos?))))
[]
(jdbc/plan (ds) ["select * from btest"]))]
(is (every? boolean? (map :is_it data)))
(is (every? boolean? (map :twiddle data)))))
(deftest folding-test (deftest folding-test
(jdbc/execute-one! (ds) ["delete from fruit"]) (jdbc/execute-one! (ds) ["delete from fruit"])