add group to composition tests
parent
a723338316
commit
b3cbead806
@ -1,13 +1,14 @@
|
||||
(use test)
|
||||
(import ssql)
|
||||
|
||||
(test "simple"
|
||||
(test-group "composition"
|
||||
(test "simple"
|
||||
'(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
|
||||
(ssql-compose #f
|
||||
'(select (columns firstname lastname) (from artists))
|
||||
'((where (= firstname "Frank")))))
|
||||
|
||||
(test "merge"
|
||||
(test "merge"
|
||||
'(select (columns firstname lastname age) (from artists) (order firstname lastname))
|
||||
(ssql-compose #f '(select (columns firstname lastname) (order firstname))
|
||||
'((columns age) (from artists) (order lastname))))
|
||||
'((columns age) (from artists) (order lastname)))))
|
Loading…
Reference in New Issue