Added simple test to check for preserved dashes when the var is bound to true.

This commit is contained in:
Jon Doane 2015-10-11 11:29:55 -04:00
parent 1f6e9151fd
commit 7e78b10ae4

View file

@ -18,6 +18,11 @@
:foo-bar "foo_bar")
(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
(is (= (format-clause
(first {:with [[:query {:select [:foo] :from [:bar]}]]}) nil)