You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
(cond-expand
|
|
|
|
|
(chicken-4
|
|
|
|
|
(use test))
|
|
|
|
|
(chicken-5
|
|
|
|
|
(import test)))
|
|
|
|
|
|
|
|
|
|
(import ssql)
|
|
|
|
|
|
|
|
|
|
(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"
|
|
|
|
|
'(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)))))
|
