;;;; 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
;;;;
(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)
(pgsql-table-test specs)
(pgsql-socket-table-test specs)
(aodbc-table-test specs)
- )))
+ ))
+ t)
+
+;(deftest clsql.all (clsql-tests) t)
+(clsql-tests)
+
-(do-test)