db-deploy-test ( -- )

Vocabulary

tools.deploy.test.17

Inputs

None

Outputs

None

Definition

USING: accessors calendar db db.sqlite db.tuples io.files.temp
kernel urls ;

IN: tools.deploy.test.17

: 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 ;