Added simple test to check for preserved dashes when the var is bound to true.
This commit is contained in:
parent
1f6e9151fd
commit
7e78b10ae4
1 changed files with 5 additions and 0 deletions
|
|
@ -18,6 +18,11 @@
|
||||||
:foo-bar "foo_bar")
|
:foo-bar "foo_bar")
|
||||||
(is (= (quote-identifier "*" :style :ansi) "*")))
|
(is (= (quote-identifier "*" :style :ansi) "*")))
|
||||||
|
|
||||||
|
(deftest test-dashed-quote
|
||||||
|
(binding [*allow-dashed-names?* true]
|
||||||
|
(is (= (quote-identifier :foo-bar) "foo-bar"))
|
||||||
|
(is (= (quote-identifier :foo-bar :style :ansi) "\"foo-bar\""))))
|
||||||
|
|
||||||
(deftest test-cte
|
(deftest test-cte
|
||||||
(is (= (format-clause
|
(is (= (format-clause
|
||||||
(first {:with [[:query {:select [:foo] :from [:bar]}]]}) nil)
|
(first {:with [[:query {:select [:foo] :from [:bar]}]]}) nil)
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue