32 lines
924 B
Factor
32 lines
924 B
Factor
USING: accessors calendar db db.sqlite db.tuples db.types
|
|
io.files.temp kernel urls ;
|
|
IN: tools.deploy.test.17
|
|
|
|
TUPLE: person name birthday homepage occupation ;
|
|
|
|
person "PEOPLE" {
|
|
{ "name" "NAME" { VARCHAR 256 } +not-null+ +user-assigned-id+ }
|
|
{ "birthday" "BIRTHDAY" DATETIME +not-null+ }
|
|
{ "homepage" "HOMEPAGE" URL +not-null+ }
|
|
{ "occupation" "OCCUPATION" { VARCHAR 256 } +not-null+ }
|
|
} define-persistent
|
|
|
|
: db-deploy-test ( -- )
|
|
"test.db" temp-file <sqlite-db> [
|
|
person recreate-table
|
|
|
|
person new
|
|
"Stephen Hawking" >>name
|
|
timestamp new 8 >>day 0 >>month 1942 >>year >>birthday
|
|
"http://en.wikipedia.org/wiki/Stephen_Hawking" >url >>homepage
|
|
"Dope MC" >>occupation
|
|
dup
|
|
insert-tuple
|
|
person new
|
|
"Stephen Hawking" >>name
|
|
select-tuple
|
|
assert=
|
|
] with-db ;
|
|
|
|
MAIN: db-deploy-test
|