From 7b409be5928a70e301dd8ec9196b8dfaea01042c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 8 Mar 2008 04:33:02 -0600
Subject: [PATCH] Disable oracle tests for now

---
 extra/oracle/oracle-tests.factor | 62 ++++++++++++++++----------------
 1 file changed, 32 insertions(+), 30 deletions(-)
 mode change 100644 => 100755 extra/oracle/oracle-tests.factor

diff --git a/extra/oracle/oracle-tests.factor b/extra/oracle/oracle-tests.factor
old mode 100644
new mode 100755
index 5756578d92..7006bde23a
--- a/extra/oracle/oracle-tests.factor
+++ b/extra/oracle/oracle-tests.factor
@@ -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