(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)))))