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

sort of support foreign keys

db4
Doug Coleman 2008-09-27 14:30:12 -05:00
parent c6e9b55361
commit dc9f374570
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/db/sqlite/sqlite.factor
View File

@ -171,6 +171,7 @@ M: sqlite-db persistent-table ( -- assoc )
{ +db-assigned-id+ { "integer" "integer" f } } { +db-assigned-id+ { "integer" "integer" f } }
{ +user-assigned-id+ { f f f } } { +user-assigned-id+ { f f f } }
{ +random-id+ { "integer" "integer" f } } { +random-id+ { "integer" "integer" f } }
{ +foreign-id+ { "integer" "integer" f } }
{ INTEGER { "integer" "integer" f } } { INTEGER { "integer" "integer" f } }
{ BIG-INTEGER { "bigint" "bigint" } } { BIG-INTEGER { "bigint" "bigint" } }
{ SIGNED-BIG-INTEGER { "bigint" "bigint" } } { SIGNED-BIG-INTEGER { "bigint" "bigint" } }

6
basis/db/tuples/tuples-tests.factor
View File

@ -210,12 +210,10 @@ TUPLE: annotation n paste-id summary author mode contents ;
[ ] [ paste drop-table ] unit-test [ ] [ paste drop-table ] unit-test
[ ] [ paste create-table ] unit-test [ ] [ paste create-table ] unit-test
[ ] [ annotation create-table ] unit-test [ ] [ annotation create-table ] unit-test
; ;
! [ test-paste-schema ] test-sqlite [ test-paste-schema ] test-sqlite
! [ test-paste-schema ] test-postgresql [ test-paste-schema ] test-postgresql
: test-repeated-insert : test-repeated-insert
[ ] [ person ensure-table ] unit-test [ ] [ person ensure-table ] unit-test