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

db.sqlite: fix the delete constraint for the restrict case

char-rename
Björn Lindqvist 2016-08-25 13:52:44 +02:00
parent 66083e263c
commit ebdf57d175
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/db/sqlite/sqlite-tests.factor
View File

@ -15,7 +15,7 @@ ${
"SELECT RAISE(ROLLBACK, "
"'delete on table \"NODE\" violates "
"foreign key constraint \"fkd_TREE_NODE_NODE_ID_id\"') "
"WHERE (SELECT ID FROM NODE WHERE ID = OLD.ID) IS NOT NULL; END;"
"WHERE (SELECT NODE FROM TREE WHERE NODE = OLD.ID) IS NOT NULL; END;"
} concat
} [
{
@ -203,6 +203,7 @@ watch "WATCH" {
watch boa insert-tuple
watch new select-tuple
user>> f user boa select-tuple
user new "mark" >>username delete-tuples
] with-db
] unit-test

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

@ -243,7 +243,7 @@ M: sqlite-db-connection persistent-table ( -- assoc )
BEFORE DELETE ON ${foreign-table-name}
FOR EACH ROW BEGIN
SELECT RAISE(ROLLBACK, 'delete on table \"${foreign-table-name}\" violates foreign key constraint \"fkd_${table-name}_${table-id}_${foreign-table-name}_${foreign-table-id}_id\"')
WHERE (SELECT ${foreign-table-id} FROM ${foreign-table-name} WHERE ${foreign-table-id} = OLD.${foreign-table-id}) IS NOT NULL;
WHERE (SELECT ${table-id} FROM ${table-name} WHERE ${table-id} = OLD.${foreign-table-id}) IS NOT NULL;
END;
" interpolate>string ;