X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftests.lisp;h=22e7f690f790d5cca04bf9968e0984331690b58d;hb=cf7d86bff2e462e0d0309da265a7ec39bf52c9a2;hp=415fa2fdeb3655adee04277a822d4e133e693cea;hpb=8d558ce162d1360f92e4d65d054e2f61c786319e;p=clsql.git

diff --git a/tests/tests.lisp b/tests/tests.lisp
index 415fa2f..22e7f69 100644
--- a/tests/tests.lisp
+++ b/tests/tests.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: tests.lisp,v 1.1 2003/05/02 03:08:58 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -55,7 +55,7 @@
 	  (setf (pgsql-socket-spec specs) 
 		(cadr (assoc :postgresql-socket config)))
 	  specs))
-      (error "CLSQL tester config file ~S not found" path)))
+      (warn "CLSQL tester config file ~S not found" path)))
 
 (defmethod mysql-table-test ((test conn-specs))
   (test-table (mysql-spec test) :mysql))
@@ -220,7 +220,7 @@
 (defun drop-test-table (db)
   (clsql:execute-command "DROP TABLE test_clsql" :database db))
 
-(defun do-test ()
+(defun clsql-tests ()
     (let ((specs (read-specs)))
       (with-tests (:name "CLSQL")
 	(mysql-low-level specs)
@@ -228,7 +228,11 @@
 	(pgsql-table-test specs)
 	(pgsql-socket-table-test specs)
 	(aodbc-table-test specs)
-      )))
+      ))
+    t)
+
+;(deftest clsql.all (clsql-tests) t)
+(clsql-tests)
+
 
 
-(do-test)