Add mimimal test for #228
This commit is contained in:
parent
ea3e9b40bd
commit
24c20c3a2f
1 changed files with 17 additions and 1 deletions
|
|
@ -6,7 +6,7 @@
|
||||||
[honeysql.helpers :refer [select modifiers from join left-join
|
[honeysql.helpers :refer [select modifiers from join left-join
|
||||||
right-join full-join where group having
|
right-join full-join where group having
|
||||||
order-by limit offset values columns
|
order-by limit offset values columns
|
||||||
insert-into with]]
|
insert-into with merge-where]]
|
||||||
honeysql.format-test))
|
honeysql.format-test))
|
||||||
|
|
||||||
;; TODO: more tests
|
;; TODO: more tests
|
||||||
|
|
@ -215,4 +215,20 @@
|
||||||
(where [:= :id (sql/inline nil)])
|
(where [:= :id (sql/inline nil)])
|
||||||
sql/format))))
|
sql/format))))
|
||||||
|
|
||||||
|
(deftest merge-where-no-params-test
|
||||||
|
(testing "merge-where called with just the map as parameter - see #228"
|
||||||
|
(let [sqlmap (-> (select :*)
|
||||||
|
(from :table)
|
||||||
|
(where [:= :foo :bar]))]
|
||||||
|
(is (= ["SELECT * FROM table WHERE foo = bar"]
|
||||||
|
(sql/format (apply merge-where sqlmap [])))))))
|
||||||
|
|
||||||
|
(deftest merge-where-test
|
||||||
|
(is (= ["SELECT * FROM table WHERE (foo = bar AND quuz = xyzzy)"]
|
||||||
|
(-> (select :*)
|
||||||
|
(from :table)
|
||||||
|
(where [:= :foo :bar])
|
||||||
|
(merge-where [:= :quuz :xyzzy])
|
||||||
|
sql/format))))
|
||||||
|
|
||||||
#?(:cljs (cljs.test/run-all-tests))
|
#?(:cljs (cljs.test/run-all-tests))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue