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
|
||||
right-join full-join where group having
|
||||
order-by limit offset values columns
|
||||
insert-into with]]
|
||||
insert-into with merge-where]]
|
||||
honeysql.format-test))
|
||||
|
||||
;; TODO: more tests
|
||||
|
|
@ -215,4 +215,20 @@
|
|||
(where [:= :id (sql/inline nil)])
|
||||
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))
|
||||
|
|
|
|||
Loading…
Reference in a new issue