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

beginning to refactor

db4
Doug Coleman 2008-04-28 20:01:32 -05:00
parent b092a4f9d5
commit e266480029
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/db/queries/queries.factor
View File

@ -6,6 +6,8 @@ math.bitfields.lib namespaces.lib db db.tuples db.types
math.intervals ;
IN: db.queries
TUPLE: query tuple order group having ;
GENERIC: where ( specs obj -- )
: maybe-make-retryable ( statement -- statement )

11
extra/db/tuples/tuples-tests.factor
View File

@ -322,6 +322,17 @@ TUPLE: exam id name score ;
}
] [
T{ exam f T{ interval f { -1.0/0.0 t } { 1/0. f } } } select-tuples
] unit-test
[
{
T{ exam f 1 "Kyle" 100 }
T{ exam f 2 "Stan" 80 }
T{ exam f 3 "Kenny" 60 }
T{ exam f 4 "Cartman" 41 }
}
] [
T{ exam } select-tuples
] unit-test ;
TUPLE: bignum-test id m n o ;