use test-group

tests/ansi-test.scm

@@ -1,16 +1,16 @@
 (use test)
 (import ssql)
 
-(test-begin "selects")
-(test "Simple query"
+(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"
+  (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,8 +23,6 @@
                                  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))))
-
-(test-end "selects")
+    (ssql->sql #f '(select (columns lastname firstname) (from people) (order (desc lastname) firstname)))))