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.
24 lines
1.1 KiB
Scheme
24 lines
1.1 KiB
Scheme
14 years ago
|
(use test)
|
||
|
|
(import ssql)
|
||
|
|
|
||
|
|
(test-begin "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 (FROM actors roles))"
|
||
|
|
(ssql->sql #f `(select (columns (col actors id firstname lastname) (col roles character movie_id))
|
||
|
|
(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-end "selects")
|