From ddae27a4c55b8a055afc167bd7d65c766cc6c78e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 21 May 2004 03:19:07 +0000 Subject: [PATCH] r9423: fix case of test names --- sql/sql.lisp | 2 ++ tests/test-basic.lisp | 20 ++++++++++---------- 2 files changed, 12 insertions(+), 10 deletions(-) diff --git a/sql/sql.lisp b/sql/sql.lisp index 79bf6cd..c80723b 100644 --- a/sql/sql.lisp +++ b/sql/sql.lisp @@ -48,6 +48,8 @@ (signal-no-database-error database)) (unless (is-database-open database) (database-reconnect database)) + (when (eq :oracle (database-type database)) + (ignore-errors (execute-command "PURGE RECYCLEBIN" :database database))) (when (db-type-has-views? (database-underlying-type database)) (dolist (view (list-views :database database)) (drop-view view :database database))) diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp index 1cd09d2..516eeb2 100644 --- a/tests/test-basic.lisp +++ b/tests/test-basic.lisp @@ -20,7 +20,7 @@ (setq *rt-basic* '( - (deftest :BASIC/TYPE/1 + (deftest :basic/type/1 (let ((results '())) (dolist (row (query "select * from TYPE_TABLE" :result-types :auto) results) @@ -31,7 +31,7 @@ results)))) ((t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t))) - (deftest :BASIC/TYPE/2 + (deftest :basic/type/2 (let ((results '())) (dolist (row (query "select * from TYPE_TABLE" :result-types :auto) results) @@ -47,7 +47,7 @@ results) ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t))) - (deftest :BASIC/SELECT/1 + (deftest :basic/select/1 (let ((rows (query "select * from TYPE_TABLE" :result-types :auto))) (values (length rows) @@ -65,7 +65,7 @@ results)))) ((t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t) (t t t))) - (deftest :BASIC/SELECT/3 + (deftest :basic/select/3 (let ((results '())) (dolist (row (query "select * from TYPE_TABLE" :result-types nil) results) @@ -79,7 +79,7 @@ results)))) ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t))) - (deftest :BASIC/MAP/1 + (deftest :basic/map/1 (let ((results '()) (rows (map-query 'vector #'identity "select * from TYPE_TABLE" :result-types nil))) @@ -98,7 +98,7 @@ results))) ((t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t))) - (deftest :BASIC/MAP/2 + (deftest :basic/map/2 (let ((results '()) (rows (map-query 'list #'identity "select * from TYPE_TABLE" :result-types nil))) @@ -116,7 +116,7 @@ results))) ((t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t))) - (deftest :BASIC/MAP/3 + (deftest :basic/map/3 (let ((results '()) (rows (map-query 'list #'identity "select * from TYPE_TABLE" :result-types :auto))) @@ -133,7 +133,7 @@ results))) ((t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t) (t 3 t t))) - (deftest :BASIC/DO/1 + (deftest :basic/do/1 (let ((results '())) (do-query ((int float str) "select * from TYPE_TABLE" :result-types nil) (let ((int-number (parse-integer int))) @@ -147,7 +147,7 @@ results) ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t))) - (deftest :BASIC/DO/2 + (deftest :basic/do/2 (let ((results '())) (do-query ((int float str) "select * from TYPE_TABLE" :result-types :auto) (setq results @@ -163,7 +163,7 @@ ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t))) - (deftest :BASIC/BIGINT/1 + (deftest :basic/bigint/1 (let ((results '())) (dolist (row (query "select * from TYPE_BIGINT" :result-types :auto) results) -- 2.34.1