38 lines
935 B
Factor
38 lines
935 B
Factor
! Copyright (C) 2005 Chris Double.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
IN: tuple-db
|
|
USING: io kernel sequences namespaces
|
|
hashtables sqlite errors math words generic test ;
|
|
|
|
TUPLE: testdata one two ;
|
|
|
|
testdata default-mapping set-mapping
|
|
|
|
"libs/sqlite/test.db" resource-path [
|
|
|
|
db get testdata create-tuple-table
|
|
|
|
[ "two" [ ] ] [
|
|
db get "one" "two" <testdata> insert-tuple
|
|
db get "one" f <testdata> find-tuples
|
|
first [ testdata-two ] keep
|
|
db get swap delete-tuple
|
|
db get "one" f <testdata> find-tuples
|
|
] unit-test
|
|
|
|
[ "junk" ] [
|
|
db get "one" "two" <testdata> insert-tuple
|
|
db get "one" f <testdata> find-tuples
|
|
first
|
|
"junk" over set-testdata-two
|
|
db get swap update-tuple
|
|
db get "one" f <testdata> find-tuples
|
|
first [ testdata-two ] keep
|
|
db get swap delete-tuple
|
|
] unit-test
|
|
|
|
db get testdata drop-tuple-table
|
|
] with-sqlite
|
|
|