From 583aa5b545d0305bc19c34dffb8a6239921b1101 Mon Sep 17 00:00:00 2001 From: Sean Corfield Date: Wed, 22 Jul 2020 16:35:38 -0700 Subject: [PATCH] Add plan bool/bit test to match SQLite Tips & Tricks --- test/next/jdbc_test.clj | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/test/next/jdbc_test.clj b/test/next/jdbc_test.clj index 0944de3..3306770 100644 --- a/test/next/jdbc_test.clj +++ b/test/next/jdbc_test.clj @@ -355,7 +355,17 @@ 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)))))) + (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 (jdbc/execute-one! (ds) ["delete from fruit"])