713f72cfb6
I forgot that Object doesn't include nil on protocols. I added test coverage demonstrating the regression, only to note that parameterized and literal queries produce different sql for the nil case. I believe only the former is actually valid ANSI SQL, though mysql at least does not care.
129 lines
6.5 KiB
Clojure
129 lines
6.5 KiB
Clojure
(ns honeysql.core-test
|
|
(:refer-clojure :exclude [format update])
|
|
(:require [clojure.test :refer [deftest testing is]]
|
|
[honeysql.core :as sql]
|
|
[honeysql.helpers :refer :all]))
|
|
|
|
;; TODO: more tests
|
|
|
|
(deftest test-select
|
|
(let [m1 (-> (select :f.* :b.baz :c.quux [:b.bla :bla-bla]
|
|
:%now (sql/raw "@x := 10"))
|
|
;;(un-select :c.quux)
|
|
(modifiers :distinct)
|
|
(from [:foo :f] [:baz :b])
|
|
(join :draq [:= :f.b :draq.x])
|
|
(left-join [:clod :c] [:= :f.a :c.d])
|
|
(right-join :bock [:= :bock.z :c.e])
|
|
(full-join :beck [:= :beck.x :c.y])
|
|
(where [:or
|
|
[:and [:= :f.a "bort"] [:not= :b.baz :?param1]]
|
|
[:< 1 2 3]
|
|
[:in :f.e [1 (sql/param :param2) 3]]
|
|
[:between :f.e 10 20]])
|
|
;;(merge-where [:not= nil :b.bla])
|
|
(group :f.a)
|
|
(having [:< 0 :f.e])
|
|
(order-by [:b.baz :desc] :c.quux [:f.a :nulls-first])
|
|
(limit 50)
|
|
(offset 10))
|
|
m2 {:select [:f.* :b.baz :c.quux [:b.bla :bla-bla]
|
|
:%now (sql/raw "@x := 10")]
|
|
;;:un-select :c.quux
|
|
:modifiers :distinct
|
|
:from [[:foo :f] [:baz :b]]
|
|
:join [:draq [:= :f.b :draq.x]]
|
|
:left-join [[:clod :c] [:= :f.a :c.d]]
|
|
:right-join [:bock [:= :bock.z :c.e]]
|
|
:full-join [:beck [:= :beck.x :c.y]]
|
|
:where [:or
|
|
[:and [:= :f.a "bort"] [:not= :b.baz :?param1]]
|
|
[:< 1 2 3]
|
|
[:in :f.e [1 (sql/param :param2) 3]]
|
|
[:between :f.e 10 20]]
|
|
;;:merge-where [:not= nil :b.bla]
|
|
:group-by :f.a
|
|
:having [:< 0 :f.e]
|
|
:order-by [[:b.baz :desc] :c.quux [:f.a :nulls-first]]
|
|
:limit 50
|
|
:offset 10}
|
|
m3 (sql/build m2)
|
|
m4 (apply sql/build (apply concat m2))]
|
|
(testing "Various construction methods are consistent"
|
|
(is (= m1 m3 m4)))
|
|
(testing "SQL data formats correctly"
|
|
(is (= ["SELECT DISTINCT f.*, b.baz, c.quux, b.bla AS bla_bla, now(), @x := 10 FROM foo f, baz b INNER JOIN draq ON f.b = draq.x LEFT JOIN clod c ON f.a = c.d RIGHT JOIN bock ON bock.z = c.e FULL JOIN beck ON beck.x = c.y WHERE ((f.a = ? AND b.baz <> ?) OR (1 < 2 AND 2 < 3) OR (f.e in (1, ?, 3)) OR f.e BETWEEN 10 AND 20) GROUP BY f.a HAVING 0 < f.e ORDER BY b.baz DESC, c.quux, f.a NULLS FIRST LIMIT 50 OFFSET 10 "
|
|
"bort" "gabba" 2]
|
|
(sql/format m1 {:param1 "gabba" :param2 2}))))
|
|
(testing "SQL data prints and reads correctly"
|
|
(is (= m1 (read-string (pr-str m1)))))
|
|
(testing "SQL data formats correctly with alternate param naming"
|
|
(is (= (sql/format m1 :params {:param1 "gabba" :param2 2} :parameterizer :postgresql)
|
|
["SELECT DISTINCT f.*, b.baz, c.quux, b.bla AS bla_bla, now(), @x := 10 FROM foo f, baz b INNER JOIN draq ON f.b = draq.x LEFT JOIN clod c ON f.a = c.d RIGHT JOIN bock ON bock.z = c.e FULL JOIN beck ON beck.x = c.y WHERE ((f.a = $1 AND b.baz <> $2) OR (1 < 2 AND 2 < 3) OR (f.e in (1, $3, 3)) OR f.e BETWEEN 10 AND 20) GROUP BY f.a HAVING 0 < f.e ORDER BY b.baz DESC, c.quux, f.a NULLS FIRST LIMIT 50 OFFSET 10 "
|
|
"bort" "gabba" 2])))
|
|
(testing "Locking"
|
|
(is (= ["SELECT DISTINCT f.*, b.baz, c.quux, b.bla AS bla_bla, now(), @x := 10 FROM foo f, baz b INNER JOIN draq ON f.b = draq.x LEFT JOIN clod c ON f.a = c.d RIGHT JOIN bock ON bock.z = c.e FULL JOIN beck ON beck.x = c.y WHERE ((f.a = ? AND b.baz <> ?) OR (1 < 2 AND 2 < 3) OR (f.e in (1, ?, 3)) OR f.e BETWEEN 10 AND 20) GROUP BY f.a HAVING 0 < f.e ORDER BY b.baz DESC, c.quux, f.a NULLS FIRST LIMIT 50 OFFSET 10 FOR UPDATE "
|
|
"bort" "gabba" 2]
|
|
(sql/format (assoc m1 :lock {:mode :update})
|
|
{:param1 "gabba" :param2 2}))))))
|
|
|
|
(deftest test-cast
|
|
(is (= ["SELECT foo, CAST(bar AS integer)"]
|
|
(sql/format {:select [:foo (sql/call :cast :bar :integer)]})))
|
|
(is (= ["SELECT foo, CAST(bar AS integer)"]
|
|
(sql/format {:select [:foo (sql/call :cast :bar 'integer)]}))))
|
|
|
|
(deftest test-value
|
|
(is (= ["INSERT INTO foo (bar) VALUES (?)" {:baz "my-val"}]
|
|
(->
|
|
(insert-into :foo)
|
|
(columns :bar)
|
|
(values [[(honeysql.format/value {:baz "my-val"})]])
|
|
sql/format))))
|
|
|
|
(deftest test-operators
|
|
(testing "="
|
|
(testing "with nil"
|
|
(is (= ["SELECT * FROM customers WHERE name IS NULL"]
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:= :name nil]})))
|
|
(is (= ["SELECT * FROM customers WHERE name = ?" nil]
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:= :name :?name]}
|
|
{:name nil})))))
|
|
(testing "in"
|
|
(doseq [[cname coll] [[:vector []] [:set #{}] [:list '()]]]
|
|
(testing (str "with values from a " (name cname))
|
|
(let [values (conj coll 1)]
|
|
(is (= ["SELECT * FROM customers WHERE (id in (1))"]
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:in :id values]})))
|
|
(is (= ["SELECT * FROM customers WHERE (id in (?))" 1]
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:in :id :?ids]}
|
|
{:ids values}))))))
|
|
(testing "with more than one integer"
|
|
(let [values [1 2]]
|
|
(is (= ["SELECT * FROM customers WHERE (id in (1, 2))"]
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:in :id values]})))
|
|
(is (= ["SELECT * FROM customers WHERE (id in (?, ?))" 1 2]
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:in :id :?ids]}
|
|
{:ids values})))))
|
|
(testing "with more than one string"
|
|
(let [values ["1" "2"]]
|
|
(is (= ["SELECT * FROM customers WHERE (id in (?, ?))" "1" "2"]
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:in :id values]})
|
|
(sql/format {:select [:*]
|
|
:from [:customers]
|
|
:where [:in :id :?ids]}
|
|
{:ids values})))))))
|