diff --git a/extra/db2/fql/fql-tests.factor b/extra/db2/fql/fql-tests.factor index 6a6f782b1e..cb1bee24ca 100644 --- a/extra/db2/fql/fql-tests.factor +++ b/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 ; diff --git a/extra/db2/fql/fql.factor b/extra/db2/fql/fql.factor index 78abc5ee0b..222135606e 100644 --- a/extra/db2/fql/fql.factor +++ b/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 )