add group to composition tests

master
Moritz Heidkamp 13 years ago
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…
Cancel
Save