Adds basic tests for PR #34, common table expressions
This commit is contained in:
parent
c6b621583e
commit
6d0ff344b9
1 changed files with 8 additions and 0 deletions
|
|
@ -17,3 +17,11 @@
|
||||||
'foo "foo"
|
'foo "foo"
|
||||||
:foo-bar "foo_bar")
|
:foo-bar "foo_bar")
|
||||||
(is (= (quote-identifier "*" :style :ansi) "*")))
|
(is (= (quote-identifier "*" :style :ansi) "*")))
|
||||||
|
|
||||||
|
(deftest test-cte
|
||||||
|
(is (= (format-clause
|
||||||
|
(first {:with [[:query {:select [:foo] :from [:bar]}]]}) nil)
|
||||||
|
"WITH query AS SELECT foo FROM bar"))
|
||||||
|
(is (= (format-clause
|
||||||
|
(first {:with-recursive [[:query {:select [:foo] :from [:bar]}]]}) nil)
|
||||||
|
"WITH RECURSIVE query AS SELECT foo FROM bar")))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue