add test for all features of select except where clauses

extra/db2/fql/fql-tests.factor

@@ -21,6 +21,17 @@ IN: db2.fql.tests
         expand-fql sql>>
     ] unit-test
     
+    [ "select name, os from computer group by os order by lol offset 100 limit 3" ]
+    [
+        select new
+            { "name" "os" } >>names
+            "computer" >>from
+            "os" >>group-by
+            "lol" >>order-by
+            100 >>offset
+            3 >>limit
+        expand-fql sql>>
+    ] unit-test
 
     ;
 

extra/db2/fql/fql.factor

@@ -12,11 +12,9 @@ GENERIC: normalize-fql ( object -- sequence/fql-statement )
 
 ! M: object normalize-fql ;
 
-
 : ?1array ( obj -- array )
     dup string? [ 1array ] when ; inline
 
-
 TUPLE: insert into names values ;
 CONSTRUCTOR: insert ( into names values -- obj ) ;
 M: insert normalize-fql ( insert -- insert )