luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

quote aliases better

Browse source
This commit is contained in:
Justin Kramer 2013-08-06 15:23:37 -04:00
parent b3da410e38
commit 74669d62b5
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/honeysql/format.clj
View file

@ -200,7 +200,9 @@
;; alias
(str (to-sql (first x))
" AS "
(str "\"" (name (second x)) "\""))))
(if (string? (second x))
(quote-identifier (second x))
(to-sql (second x))))))
SqlCall
(-to-sql [x] (binding [*fn-context?* true]
(let [fn-name (name (.name x))

6
test/honeysql/core_test.clj
View file

@ -7,7 +7,7 @@
;; TODO: more tests
(deftest test-select
(let [m1 (-> (select :f.* :b.baz :c.quux [:b.bla "bla bla"]
(let [m1 (-> (select :f.* :b.baz :c.quux [:b.bla :bla-bla]
:%now (sql/raw "@x := 10"))
;;(un-select :c.quux)
(modifiers :distinct)
@ -26,7 +26,7 @@
(order-by [:b.baz :desc] :c.quux)
(limit 50)
(offset 10))
m2 {:select [:f.* :b.baz :c.quux [:b.bla "bla bla"]
m2 {:select [:f.* :b.baz :c.quux [:b.bla :bla-bla]
:%now (sql/raw "@x := 10")]
;;:un-select :c.quux
:modifiers :distinct
@ -51,7 +51,7 @@
(is (= m1 m3)))
(testing "SQL data formats correctly"
(is (= (sql/format m1 {:param1 "gabba" :param2 2})
["SELECT DISTINCT f.*, b.baz, c.quux, b.bla AS \"bla bla\", now(), @x := 10 FROM foo AS f, baz AS b INNER JOIN draq ON f.b = draq.x LEFT JOIN clod AS c ON f.a = c.d RIGHT JOIN bock ON bock.z = c.e 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 LIMIT 50 OFFSET 10 "
["SELECT DISTINCT f.*, b.baz, c.quux, b.bla AS bla_bla, now(), @x := 10 FROM foo AS f, baz AS b INNER JOIN draq ON f.b = draq.x LEFT JOIN clod AS c ON f.a = c.d RIGHT JOIN bock ON bock.z = c.e 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 LIMIT 50 OFFSET 10 "
"bort" "gabba" 2])))
(testing "SQL data prints and reads correctly"
(is (= m1 (read-string (pr-str m1)))))))