-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; 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
;;;;
:type "config"))
(defvar +all-db-types+
- #-clisp '(:postgresql :postgresql-socket :mysql :sqlite :odbc
- #+allegro :aodbc)
- #+clisp '(:sqlite))
+ #-clisp '(:postgresql :postgresql-socket :mysql :sqlite :odbc :oracle
+ #+allegro :aodbc)
+ #+clisp '(:sqlite))
(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)
+ (odbc :accessor odbc-spec :initform nil)
+ (oracle :accessor oracle-spec :initform nil))
(:documentation "Connection specs for CLSQL testing"))
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)