X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Futils.lisp;h=948d75a53b034d517a6ed28b0ba734360bbb775e;hb=fa4da6e40c8970a26c2b9fe8adb9a041ff39568d;hp=1928bf4207e60b664b0382583aa370987d4e2e0e;hpb=f716bb1161cf9e89a96945c4a444244f9d303691;p=clsql.git

diff --git a/tests/utils.lisp b/tests/utils.lisp
index 1928bf4..948d75a 100644
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -7,7 +7,7 @@
 ;;;; Author:  Kevin M. Rosenberg
 ;;;; Created: Mar 2002
 ;;;;
-;;;; $Id: tests.lisp 8926 2004-04-10 21:12:52Z kevin $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
 ;;;;
@@ -24,17 +24,18 @@
 		 :type "config"))
 
 (defvar +all-db-types+
-  #-clisp '(:postgresql :postgresql-socket :mysql :sqlite :odbc 
-	    #+allegro :aodbc)
-  #+clisp '(:sqlite))
+  '(:postgresql :postgresql-socket :mysql :sqlite :sqlite3 :odbc :oracle
+    #+allegro :aodbc))
 
 (defclass conn-specs ()
   ((aodbc :accessor aodbc-spec :initform nil)
-   (odbc :accessor odbc-spec :initform nil)
    (mysql :accessor mysql-spec :initform nil)
    (postgresql :accessor postgresql-spec :initform nil)
    (postgresql-socket :accessor postgresql-socket-spec :initform nil)
-   (sqlite :accessor sqlite-spec :initform nil))
+   (sqlite :accessor sqlite-spec :initform nil)
+   (sqlite3 :accessor sqlite3-spec :initform nil)
+   (odbc :accessor odbc-spec :initform nil)
+   (oracle :accessor oracle-spec :initform nil))
   (:documentation "Connection specs for CLSQL testing"))
 
 
@@ -79,6 +80,7 @@
 			       impl-version
 			       machine-type)
 	      form
+	    (declare (ignorable utime impl-version))
 	    (if failed-tests
 		(format output "~&~A: ~D of ~D tests failed (~A, ~A).~&"
 			(db-title db-type underlying-db-type)