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

Added support for casts of the form CAST(foo AS type)

Browse source
This commit is contained in:
Ryan Senior 2015-02-20 10:05:09 -06:00
parent 0c3f3d0403
commit dd9647ee3e
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/honeysql/format.clj
View file

@ -99,6 +99,11 @@
(defmethod fn-handler "distinct-on" [_ & args] (defmethod fn-handler "distinct-on" [_ & args]
(str "DISTINCT ON (" (comma-join (map to-sql args)) ")")) (str "DISTINCT ON (" (comma-join (map to-sql args)) ")"))
(defmethod fn-handler "cast" [_ field cast-to-type]
(str "CAST" (paren-wrap (str (to-sql field)
" AS "
(to-sql cast-to-type)))))
(defmethod fn-handler "=" [_ a b & more] (defmethod fn-handler "=" [_ a b & more]
(if (seq more) (if (seq more)
(apply expand-binary-ops "=" a b more) (apply expand-binary-ops "=" a b more)

6
test/honeysql/core_test.clj
View file

@ -55,3 +55,9 @@
"bort" "gabba" 2]))) "bort" "gabba" 2])))
(testing "SQL data prints and reads correctly" (testing "SQL data prints and reads correctly"
(is (= m1 (read-string (pr-str m1))))))) (is (= m1 (read-string (pr-str m1)))))))
(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)]}))))