diff --git a/tests/composition-test.scm b/tests/composition-test.scm
index b0e3bab..c70cd24 100644
--- a/tests/composition-test.scm
+++ b/tests/composition-test.scm
@@ -1,13 +1,14 @@
 (use test)
 (import ssql)
 
-(test "simple"
-  '(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
-  (ssql-compose #f
-                '(select (columns firstname lastname) (from artists))
-                '((where (= firstname "Frank")))))
+(test-group "composition"
+  (test "simple"
+    '(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
+    (ssql-compose #f
+                  '(select (columns firstname lastname) (from artists))
+                  '((where (= firstname "Frank")))))
 
-(test "merge"
-  '(select (columns firstname lastname age) (from artists) (order firstname lastname))
-  (ssql-compose #f '(select (columns firstname lastname) (order firstname))
-                '((columns age) (from artists) (order lastname))))
\ No newline at end of file
+  (test "merge"
+    '(select (columns firstname lastname age) (from artists) (order firstname lastname))
+    (ssql-compose #f '(select (columns firstname lastname) (order firstname))
+                  '((columns age) (from artists) (order lastname)))))
\ No newline at end of file