Temporarily comment out WIP tests
This commit is contained in:
parent
78ca2a0530
commit
5e2036a922
1 changed files with 76 additions and 76 deletions
|
|
@ -483,7 +483,7 @@
|
||||||
|
|
||||||
;; these tests are adapted from Cam Saul's PR #283
|
;; these tests are adapted from Cam Saul's PR #283
|
||||||
|
|
||||||
(deftest merge-where-no-params-test
|
#_(deftest merge-where-no-params-test
|
||||||
(doseq [[k [f merge-f]] {"WHERE" [where where]
|
(doseq [[k [f merge-f]] {"WHERE" [where where]
|
||||||
"HAVING" [having having]}]
|
"HAVING" [having having]}]
|
||||||
(testing "merge-where called with just the map as parameter - see #228"
|
(testing "merge-where called with just the map as parameter - see #228"
|
||||||
|
|
@ -493,7 +493,7 @@
|
||||||
(is (= [(str "SELECT * FROM table " k " foo = bar")]
|
(is (= [(str "SELECT * FROM table " k " foo = bar")]
|
||||||
(sql/format (apply merge-f sqlmap []))))))))
|
(sql/format (apply merge-f sqlmap []))))))))
|
||||||
|
|
||||||
(deftest merge-where-test
|
#_(deftest merge-where-test
|
||||||
(doseq [[k sql-keyword f merge-f] [[:where "WHERE" where where]
|
(doseq [[k sql-keyword f merge-f] [[:where "WHERE" where where]
|
||||||
[:having "HAVING" having having]]]
|
[:having "HAVING" having having]]]
|
||||||
(is (= [(str "SELECT * FROM table " sql-keyword " (foo = bar) AND (quuz = xyzzy)")]
|
(is (= [(str "SELECT * FROM table " sql-keyword " (foo = bar) AND (quuz = xyzzy)")]
|
||||||
|
|
@ -524,7 +524,7 @@
|
||||||
:or
|
:or
|
||||||
[:x] nil [:y]))))))
|
[:x] nil [:y]))))))
|
||||||
|
|
||||||
(deftest merge-where-combine-clauses-test
|
#_(deftest merge-where-combine-clauses-test
|
||||||
(doseq [[k f] {:where where
|
(doseq [[k f] {:where where
|
||||||
:having having}]
|
:having having}]
|
||||||
(testing (str "Combine new " k " clauses into the existing clause when appropriate. (#282)")
|
(testing (str "Combine new " k " clauses into the existing clause when appropriate. (#282)")
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue