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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2009-02-12 22:11:25 -06:00
parent 12ee26566e 1a7e4b6576
commit 0ac55c4be5
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,20 +101,29 @@ TUPLE: foo slot ;
C: <foo> foo C: <foo> foo
foo "BAR" { { "slot" "SOMETHING" INTEGER +not-null+ } } define-persistent foo "BAR" { { "slot" "SOMETHING" INTEGER +not-null+ } } define-persistent
TUPLE: hi bye ; TUPLE: hi bye try ;
C: <hi> hi C: <hi> hi
hi "HELLO" hi "HELLO" {
{ { "bye" "BUHBYE" INTEGER { +foreign-id+ foo "SOMETHING" } } } define-persistent { "bye" "BUHBYE" INTEGER { +foreign-id+ foo "SOMETHING" } }
{ "try" "RETHROW" INTEGER { +foreign-id+ foo "SOMETHING" } }
} define-persistent
[ T{ foo { slot 1 } } T{ hi { bye 1 } } ] [ [ T{ foo { slot 1 } } T{ hi { bye 1 } { try 1 } } ] [
test.db [ test.db [
foo create-table foo create-table
hi create-table hi create-table
1 <foo> insert-tuple 1 <foo> insert-tuple
f <foo> select-tuple f <foo> select-tuple
1 <hi> insert-tuple 1 1 <hi> insert-tuple
f <hi> select-tuple f <hi> select-tuple
hi drop-table hi drop-table
foo drop-table foo drop-table
] with-db ] with-db
] unit-test ] unit-test
[ ] [
test.db [
hi create-table
hi drop-table
] with-db
] unit-test