From: Kevin M. Rosenberg Date: Tue, 25 May 2004 03:35:10 +0000 (+0000) Subject: r9465: * tests/test-init.lisp: Skip 2 tests on Oracle which have unsupported... X-Git-Tag: v3.8.6~383 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=75d03cfbe7811567b8920cd87d99140bd1cf6bba r9465: * tests/test-init.lisp: Skip 2 tests on Oracle which have unsupported syntax --- diff --git a/ChangeLog b/ChangeLog index 37edf69..902adfc 100644 --- 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 981046e..65930c2 100644 --- 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))))