1 USING: kernel db.postgresql alien continuations io classes
2 prettyprint sequences namespaces tools.test db
3 db.tuples db.types unicode.case accessors system ;
4 IN: db.postgresql.tests
6 : test-db ( -- postgresql-db )
10 "thepasswordistrust" >>password
11 "factor-test" >>database ;
13 os windows? cpu x86.64? and [
14 [ ] [ test-db [ ] with-db ] unit-test
18 [ "drop table person;" sql-command ] ignore-errors
19 "create table person (name varchar(30), country varchar(30));"
22 "insert into person values('John', 'America');" sql-command
23 "insert into person values('Jane', 'New Zealand');" sql-command
30 { "Jane" "New Zealand" }
34 "select * from person" sql-query
41 { "Jane" "New Zealand" }
43 ] [ test-db [ "select * from person" sql-query ] with-db ] unit-test
48 "insert into person(name, country) values('Jimmy', 'Canada')"
56 { "Jane" "New Zealand" }
59 ] [ test-db [ "select * from person" sql-query ] with-db ] unit-test
64 "insert into person(name, country) values('Jose', 'Mexico')" sql-command
65 "insert into person(name, country) values('Jose', 'Mexico')" sql-command
73 "select * from person" sql-query length
81 "insert into person(name, country) values('Jose', 'Mexico')"
83 "insert into person(name, country) values('Jose', 'Mexico')"
91 "select * from person" sql-query length
97 : with-dummy-db ( quot -- )
98 [ T{ postgresql-db } db ] dip with-variable ;