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

escape quote characters in quoted identifiers

Browse source
This commit is contained in:
Curtis Summers 2016-02-24 06:45:49 -06:00
parent a25ce4db5d
commit 47cefd0371
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/honeysql/format.clj
View file

@ -41,10 +41,10 @@
(def ^:dynamic *allow-dashed-names?* false)
(def ^:private quote-fns
{:ansi #(str \" % \")
:mysql #(str \` % \`)
:sqlserver #(str \[ % \])
:oracle #(str \" % \")})
{:ansi #(str \" (string/replace % "\"" "\"\"") \")
:mysql #(str \` (string/replace % "`" "``") \`)
:sqlserver #(str \[ (string/replace % "]" "]]") \])
:oracle #(str \" (string/replace % "\"" "\"\"") \")})
(def ^:private parameterizers
{:postgresql #(str "$" (swap! *all-param-counter* inc))

6
test/honeysql/format_test.clj
View file

@ -16,7 +16,11 @@
3 "3"
'foo "foo"
:foo-bar "foo_bar")
(is (= (quote-identifier "*" :style :ansi) "*")))
(is (= (quote-identifier "*" :style :ansi) "*"))
(is (= (quote-identifier "foo\"bar" :style :ansi) "\"foo\"\"bar\""))
(is (= (quote-identifier "foo\"bar" :style :oracle) "\"foo\"\"bar\""))
(is (= (quote-identifier "foo`bar" :style :mysql) "`foo``bar`"))
(is (= (quote-identifier "foo]bar" :style :sqlserver) "[foo]]bar]")))
(deftest test-dashed-quote
(binding [*allow-dashed-names?* true]