use test-group

tests/ansi-test.scm

@@ -1,7 +1,7 @@
 (use test)
 (import ssql)
 
-(test-begin "selects")
+(test-group "selects"
   (test "Simple query"
     "SELECT actors.firstname, actors.lastname FROM actors"
     (ssql->sql #f `(select (columns actors.firstname actors.lastname)
@@ -25,6 +25,4 @@
 
   (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)))))