add group to composition tests

tests/composition-test.scm

@@ -1,13 +1,14 @@
 (use test)
 (import ssql)
 
-(test "simple"
+(test-group "composition"
-  '(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
+  (test "simple"
-  (ssql-compose #f
+    '(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
-                '(select (columns firstname lastname) (from artists))
+    (ssql-compose #f
-                '((where (= firstname "Frank")))))
+                  '(select (columns firstname lastname) (from artists))
+                  '((where (= firstname "Frank")))))
 
-(test "merge"
+  (test "merge"
-  '(select (columns firstname lastname age) (from artists) (order firstname lastname))
+    '(select (columns firstname lastname age) (from artists) (order firstname lastname))
-  (ssql-compose #f '(select (columns firstname lastname) (order firstname))
+    (ssql-compose #f '(select (columns firstname lastname) (order firstname))
-                '((columns age) (from artists) (order lastname))))
+                  '((columns age) (from artists) (order lastname)))))