55 lines
1.8 KiB
Factor
55 lines
1.8 KiB
Factor
|
! You will need to run 'createdb factor-test' to create the database.
|
||
|
|
! Set username and password in the 'connect' word.
|
||
|
|
|
||
|
|
USING: kernel db.postgresql alien continuations io prettyprint
|
||
|
|
sequences namespaces tools.test ;
|
||
|
|
IN: temporary
|
||
|
|
|
||
|
|
: test-connection ( host port pgopts pgtty db user pass -- bool )
|
||
|
|
[ [ ] with-postgres ] catch "Error connecting!" "Connected!" ? print ;
|
||
|
|
|
||
|
|
[ ] [ "localhost" "" "" "" "factor-test" "postgres" "" test-connection ] unit-test
|
||
|
|
|
||
|
|
[ ] [ "localhost" "postgres" "" "factor-test" <postgresql-db> [ ] with-db ] unit-test
|
||
|
|
|
||
|
|
! just a basic demo
|
||
|
|
|
||
|
|
"localhost" "postgres" "" "factor-test" <postgresql-db> [
|
||
|
|
[ ] [ "drop table animal" do-command ] unit-test
|
||
|
|
|
||
|
|
[ ] [ "create table animal (id serial not null primary key, species varchar(256), name varchar(256), age integer)" do-command ] unit-test
|
||
|
|
|
||
|
|
[ ] [ "insert into animal (species, name, age) values ('lion', 'Mufasa', 5)"
|
||
|
|
do-command ] unit-test
|
||
|
|
|
||
|
|
[ ] [ "select * from animal where name = 'Mufasa'" [ ] do-query ] unit-test
|
||
|
|
[ ] [ "select * from animal where name = 'Mufasa'" [
|
||
|
|
result>seq length 1 = [
|
||
|
|
"...there can only be one Mufasa..." throw
|
||
|
|
] unless
|
||
|
|
] do-query
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ ] [ "insert into animal (species, name, age) values ('lion', 'Simba', 1)"
|
||
|
|
do-command ] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"select * from animal"
|
||
|
|
[
|
||
|
|
"Animal table:" print
|
||
|
|
result>seq print-table
|
||
|
|
] do-query
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
! intentional errors
|
||
|
|
! [ "select asdf from animal"
|
||
|
|
! [ ] do-query ] catch [ "caught: " write print ] when*
|
||
|
|
! "select asdf from animal" [ ] do-query
|
||
|
|
! "aofijweafew" do-command
|
||
|
|
] with-db
|
||
|
|
|
||
|
|
|
||
|
|
"localhost" "postgres" "" "factor-test" <postgresql-db> [
|
||
|
|
[ ] [ "drop table animal" do-command ] unit-test
|
||
|
|
] with-db
|