X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Futils.lisp;fp=tests%2Futils.lisp;h=27cbf94ad6016ced8d4d6a9dd83c5f92a0ad0cdd;hp=0000000000000000000000000000000000000000;hb=fa32c4233b4a02ae631602dbb0a234ab10df8aaf;hpb=a89cc325beaf3045a767586e34251aadb09e6d66

diff --git a/tests/utils.lisp b/tests/utils.lisp
new file mode 100644
index 0000000..27cbf94
--- /dev/null
+++ b/tests/utils.lisp
@@ -0,0 +1,68 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:    utils.lisp
+;;;; Purpose: Classes and utilities for testing
+;;;; Author:  Kevin M. Rosenberg
+;;;; Created: Mar 2002
+;;;;
+;;;; $Id: tests.lisp 8926 2004-04-10 21:12:52Z kevin $
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; *************************************************************************
+
+(in-package #:clsql-tests)
+
+(defvar *config-pathname*
+  (make-pathname :defaults (user-homedir-pathname)
+		 :name ".clsql-test"
+		 :type "config"))
+
+(defvar +all-db-types+
+  #-clisp '(:postgresql :postgresql-socket :sqlite :aodbc :mysql)
+  #+clisp '(:sqlite))
+
+(defclass conn-specs ()
+  ((aodbc-spec :accessor aodbc-spec :initform nil)
+   (mysql-spec :accessor mysql-spec :initform nil)
+   (pgsql-spec :accessor postgresql-spec :initform nil)
+   (pgsql-socket-spec :accessor postgresql-socket-spec :initform nil)
+   (sqlite-spec :accessor sqlite-spec :initform nil))
+  (:documentation "Connection specs for CLSQL testing"))
+
+
+(defun read-specs (&optional (path *config-pathname*))
+  (if (probe-file path)
+      (with-open-file (stream path :direction :input)
+	(let ((config (read stream))
+	      (specs (make-instance 'conn-specs)))
+	  (setf (aodbc-spec specs) (cadr (assoc :aodbc config)))
+	  (setf (mysql-spec specs) (cadr (assoc :mysql config)))
+	  (setf (postgresql-spec specs) (cadr (assoc :postgresql config)))
+	  (setf (postgresql-socket-spec specs) 
+		(cadr (assoc :postgresql-socket config)))
+	  (setf (sqlite-spec specs) (cadr (assoc :sqlite config)))
+	  specs))
+      (progn
+	(warn "CLSQL test config file ~S not found" path)
+	nil)))
+
+(defun db-type-spec (db-type specs)
+  (let ((accessor (intern (concatenate 'string (symbol-name db-type)
+				       (symbol-name '#:-spec))
+			  (find-package '#:clsql-tests))))
+    (funcall accessor specs)))
+
+(defun db-type-ensure-system (db-type)
+  (unless (find-package (symbol-name db-type))
+    (asdf:operate 'asdf:load-op
+		  (intern (concatenate 'string
+				       (symbol-name '#:clsql-)
+				       (symbol-name db-type))))))
+
+