steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add test for all features of select except where clauses

db4
Doug Coleman 2009-04-13 19:53:53 -05:00
parent d20fb81a9c
commit 7ab58fa3b3
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/db2/fql/fql-tests.factor
View File

@ -21,6 +21,17 @@ IN: db2.fql.tests
expand-fql sql>> expand-fql sql>>
] unit-test ] 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
; ;

2
extra/db2/fql/fql.factor
View File

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