projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8220: doc fixes
[clsql.git]
/
tests
/
tests.lisp
diff --git
a/tests/tests.lisp
b/tests/tests.lisp
index 5cb93e7d08cc69723015a3453436dbb3d3c740d5..dd609f08d865ef3a524355a155270e77568c7e19 100644
(file)
--- a/
tests/tests.lisp
+++ b/
tests/tests.lisp
@@
-55,7
+55,9
@@
(setf (pgsql-socket-spec specs)
(cadr (assoc :postgresql-socket config)))
specs))
(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))
(defmethod mysql-table-test ((test conn-specs))
(test-table (mysql-spec test) :mysql))
@@
-220,8
+222,11
@@
(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
clsql
-tests ()
+(defun
run
-tests ()
(let ((specs (read-specs)))
(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)
(with-tests (:name "CLSQL")
(mysql-low-level specs)
(mysql-table-test specs)
@@
-231,8
+236,3
@@
))
t)
))
t)
-;(deftest clsql.all (clsql-tests) t)
-(clsql-tests)
-
-
-