From fa53aa1e264d4c99163ef4af9be7be2e853b6aa8 Mon Sep 17 00:00:00 2001 From: Moritz Heidkamp Date: Wed, 17 Aug 2011 18:22:50 +0200 Subject: [PATCH] downcase tests --- tests/ansi-test.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/ansi-test.scm b/tests/ansi-test.scm index 2c1178b..72ea54b 100644 --- a/tests/ansi-test.scm +++ b/tests/ansi-test.scm @@ -2,15 +2,15 @@ (import ssql) (test-group "selects" - (test "Simple query" + (test "simple query" "SELECT actors.firstname, actors.lastname FROM actors" (ssql->sql #f `(select (columns actors.firstname actors.lastname) (from actors)))) - (test "Many columns" + (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" + (test "joined query" (string-append "SELECT actors.firstname, actors.lastname, roles.character, movies.title " @@ -23,7 +23,7 @@ movies (on (= movies.id roles.movie_id))))))) - (test "Order" + (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)))))