From 75d03cfbe7811567b8920cd87d99140bd1cf6bba Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 25 May 2004 03:35:10 +0000 Subject: [PATCH] r9465: * tests/test-init.lisp: Skip 2 tests on Oracle which have unsupported syntax --- ChangeLog | 1 + tests/test-init.lisp | 3 +++ 2 files changed, 4 insertions(+) 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)))) -- 2.34.1