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.
43 lines
1.9 KiB
Scheme
43 lines
1.9 KiB
Scheme
(use test)
|
|
(import ssql)
|
|
|
|
(test-group "selects"
|
|
(test "simple query"
|
|
"SELECT actors.firstname, actors.lastname FROM actors"
|
|
(ssql->sql #f `(select (columns actors.firstname actors.lastname)
|
|
(from actors))))
|
|
(test "many columns"
|
|
"SELECT actors.id, actors.firstname, actors.lastname, roles.character, roles.movie_id AS movie FROM actors, roles"
|
|
(ssql->sql #f `(select (columns (col actors id firstname lastname) (col roles character (as movie_id movie)))
|
|
(from actors roles))))
|
|
(test "joined query"
|
|
(string-append
|
|
"SELECT actors.firstname, actors.lastname, roles.character, movies.title "
|
|
|
|
"FROM ((actors LEFT JOIN roles ON (roles.actor_id = actors.id)) "
|
|
"LEFT JOIN movies ON (movies.id = roles.movie_id))")
|
|
(ssql->sql #f `(select (columns actors.firstname actors.lastname roles.character movies.title)
|
|
(from (join left
|
|
(join left actors roles
|
|
(on (= roles.actor_id actors.id)))
|
|
movies
|
|
(on (= movies.id roles.movie_id)))))))
|
|
|
|
(test "order"
|
|
"SELECT lastname, firstname FROM people ORDER BY lastname DESC, firstname"
|
|
(ssql->sql #f '(select (columns lastname firstname) (from people) (order (desc lastname) firstname)))))
|
|
|
|
(test-group "updates"
|
|
(test "simple case"
|
|
"UPDATE actors SET firstname = 'Rube', lastname = 'Goldberg'"
|
|
(ssql->sql #f '(update actors (set (firstname "Rube") (lastname "Goldberg")))))
|
|
|
|
(test "with condition"
|
|
"UPDATE actors SET firstname = 'Felix' WHERE (lastname = 'Winkelmann')"
|
|
(ssql->sql #f '(update actors (set (firstname "Felix")) (where (= lastname "Winkelmann"))))))
|
|
|
|
|
|
(test-group "syntax"
|
|
(test "set literals"
|
|
"SELECT one, two FROM (1, 2)"
|
|
(ssql->sql #f '(select (columns one two) (from #(1 2)))))) |