;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: tests.lisp,v 1.3 2003/05/02 03:29:28 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(setf (pgsql-socket-spec specs)
(cadr (assoc :postgresql-socket config)))
specs))
- (error "CLSQL tester config file ~S not found" path)))
+ (progn
+ (warn "CLSQL tester config file ~S not found" path)
+ nil)))
(defmethod mysql-table-test ((test conn-specs))
(test-table (mysql-spec test) :mysql))
(defun drop-test-table (db)
(clsql:execute-command "DROP TABLE test_clsql" :database db))
-(defun clsql-tests ()
+(defun run-tests ()
(let ((specs (read-specs)))
+ (unless specs
+ (warn "Not running test because test configuration file is missing")
+ (return-from run-tests :skipped))
(with-tests (:name "CLSQL")
(mysql-low-level specs)
(mysql-table-test specs)
))
t)
-;(deftest clsql.all (clsql-tests) t)
-(clsql-tests)
-
-
-