r9465: * tests/test-init.lisp: Skip 2 tests on Oracle which have unsupported...

diff --git a/ChangeLog b/ChangeLog
index 37edf69944c346921e997c04b3153866e1722c15..902adfc530806e2f3a3af8020e6b831bcd681de8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,7 @@
        * sql/oodml.lisp: Removed old stub function     
        * clsql.asd: Use module names in current package rather than keyword package
        * db-oracle/oracle-sql.lisp: Don't trim trailing spaces
+       * tests/test-init.lisp: Skip 2 tests on Oracle which have unsupported syntax 
        
 24 May 2004: Marcus Pearce (m.t.pearce@city.ac.uk) 
        * db-postgresql-socket/postgresql-socket-sql.lisp: replace 

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 981046e51f0d59b48efdd13c98ef09c3abed54ad..65930c2e9d858b2945074fdc330026b29ad28f33 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -569,6 +569,9 @@
          ((and (null (clsql-sys:db-type-has-union? db-underlying-type))
                (clsql-sys:in test :fdml/query/6 :fdml/select/31))
           (push (cons test "union not supported") skip-tests))
+         ((and (eq *test-database-type* :oracle)
+               (clsql-sys:in test :fdml/query/8 :fdml/select/21))
+          (push (cons test "syntax not supported") skip-tests))
          (t
           (push test-form test-forms)))))
       (values (nreverse test-forms) (nreverse skip-tests))))