steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Disable oracle tests for now

db4
Slava Pestov 2008-03-08 04:33:02 -06:00
parent 26df05b912
commit 7b409be592
1 changed files with 32 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
extra/oracle/oracle-tests.factor Normal file → Executable file
View File

@ -1,57 +1,59 @@
USING: oracle oracle.liboci prettyprint tools.test ;
"testuser" "testpassword" "//localhost/test1" log-on .
[
"testuser" "testpassword" "//localhost/test1" log-on .
allocate-statement-handle
allocate-statement-handle
"CREATE TABLE TESTTABLE ( COL1 VARCHAR(40), COL2 NUMBER)" prepare-statement
"CREATE TABLE TESTTABLE ( COL1 VARCHAR(40), COL2 NUMBER)" prepare-statement
[ t ] [ execute-statement ] unit-test
[ t ] [ execute-statement ] unit-test
"INSERT INTO TESTTABLE (COL1, COL2) VALUES('hello', 50)" prepare-statement
"INSERT INTO TESTTABLE (COL1, COL2) VALUES('hello', 50)" prepare-statement
[ t ] [ execute-statement ] unit-test
[ t ] [ execute-statement ] unit-test
"INSERT INTO TESTTABLE (COL1, COL2) VALUES('hi', 60)" prepare-statement
"INSERT INTO TESTTABLE (COL1, COL2) VALUES('hi', 60)" prepare-statement
[ t ] [ execute-statement ] unit-test
[ t ] [ execute-statement ] unit-test
"INSERT INTO TESTTABLE (COL1, COL2) VALUES('bye', 70)" prepare-statement
"INSERT INTO TESTTABLE (COL1, COL2) VALUES('bye', 70)" prepare-statement
[ t ] [ execute-statement ] unit-test
[ t ] [ execute-statement ] unit-test
"COMMIT" prepare-statement
"COMMIT" prepare-statement
[ t ] [ execute-statement ] unit-test
[ t ] [ execute-statement ] unit-test
"SELECT * FROM TESTTABLE" prepare-statement
"SELECT * FROM TESTTABLE" prepare-statement
1 SQLT_STR define-by-position run-query
1 SQLT_STR define-by-position run-query
[ V{ "hello" "hi" "bye" "50" "60" "70" } ] [
2 SQLT_STR define-by-position run-query gather-results
] unit-test
[ V{ "hello" "hi" "bye" "50" "60" "70" } ] [
2 SQLT_STR define-by-position run-query gather-results
] unit-test
clear-result
clear-result
"UPDATE TESTTABLE SET COL2 = 10 WHERE COL1='hi'" prepare-statement
"UPDATE TESTTABLE SET COL2 = 10 WHERE COL1='hi'" prepare-statement
[ t ] [ execute-statement ] unit-test
[ t ] [ execute-statement ] unit-test
"COMMIT" prepare-statement
"COMMIT" prepare-statement
[ t ] [ execute-statement ] unit-test
[ t ] [ execute-statement ] unit-test
"SELECT * FROM TESTTABLE WHERE COL1 = 'hi'" prepare-statement
"SELECT * FROM TESTTABLE WHERE COL1 = 'hi'" prepare-statement
[ V{ "10" } ] [
2 SQLT_STR define-by-position run-query gather-results
] unit-test
[ V{ "10" } ] [
2 SQLT_STR define-by-position run-query gather-results
] unit-test
clear-result
clear-result
"DROP TABLE TESTTABLE" prepare-statement
"DROP TABLE TESTTABLE" prepare-statement
execute-statement
execute-statement
free-statement-handle log-off clean-up terminate
free-statement-handle log-off clean-up terminate
] drop