From b3cbead8068a7936c5df5baa28f6d90899315d69 Mon Sep 17 00:00:00 2001 From: Moritz Heidkamp Date: Thu, 18 Aug 2011 17:10:33 +0200 Subject: [PATCH] add group to composition tests --- tests/composition-test.scm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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