diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor index e520ad302b..0c4ce4717f 100755 --- a/basis/db/sqlite/sqlite.factor +++ b/basis/db/sqlite/sqlite.factor @@ -171,6 +171,7 @@ M: sqlite-db persistent-table ( -- assoc ) { +db-assigned-id+ { "integer" "integer" f } } { +user-assigned-id+ { f f f } } { +random-id+ { "integer" "integer" f } } + { +foreign-id+ { "integer" "integer" f } } { INTEGER { "integer" "integer" f } } { BIG-INTEGER { "bigint" "bigint" } } { SIGNED-BIG-INTEGER { "bigint" "bigint" } } diff --git a/basis/db/tuples/tuples-tests.factor b/basis/db/tuples/tuples-tests.factor index ddaee012a5..b3d1b2bbef 100755 --- a/basis/db/tuples/tuples-tests.factor +++ b/basis/db/tuples/tuples-tests.factor @@ -210,12 +210,10 @@ TUPLE: annotation n paste-id summary author mode contents ; [ ] [ paste drop-table ] unit-test [ ] [ paste create-table ] unit-test [ ] [ annotation create-table ] unit-test - ; -! [ test-paste-schema ] test-sqlite -! [ test-paste-schema ] test-postgresql - +[ test-paste-schema ] test-sqlite +[ test-paste-schema ] test-postgresql : test-repeated-insert [ ] [ person ensure-table ] unit-test