projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4968: Auto commit for Debian build
[clsql.git]
/
tests
/
tests.lisp
diff --git
a/tests/tests.lisp
b/tests/tests.lisp
index 415fa2fdeb3655adee04277a822d4e133e693cea..24808216d6b07656fde9f1c9add6b2b8d13c7d1d 100644
(file)
--- a/
tests/tests.lisp
+++ b/
tests/tests.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: tests.lisp,v 1.
1 2003/05/02 03:08:5
8 kevin Exp $
+;;;; $Id: tests.lisp,v 1.
3 2003/05/02 03:29:2
8 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-220,7
+220,7
@@
(defun drop-test-table (db)
(clsql:execute-command "DROP TABLE test_clsql" :database db))
(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)
(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)
(pgsql-table-test specs)
(pgsql-socket-table-test specs)
(aodbc-table-test specs)
- )))
+ ))
+ t)
+
+;(deftest clsql.all (clsql-tests) t)
+(clsql-tests)
+
-(do-test)