projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dd50b95
)
print start and stop messages while testing (probably remove, but for now I am having...
author
Russ Tyndall
<russ@acceleration.net>
Wed, 11 Jun 2014 18:54:54 +0000
(14:54 -0400)
committer
Russ Tyndall
<russ@acceleration.net>
Wed, 11 Jun 2014 19:07:21 +0000
(15:07 -0400)
tests/test-init.lisp
patch
|
blob
|
history
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index 88322083db113eb9334bcb6c8081d2f9ff7c8073..4aa485a7711d26b8460c2ed1d08fb3aac6e3e36f 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-124,8
+124,10
@@
(dolist (spec (db-type-spec db-type specs))
(let ((*test-connection-spec* spec)
(*test-connection-db-type* db-type))
(dolist (spec (db-type-spec db-type specs))
(let ((*test-connection-spec* spec)
(*test-connection-db-type* db-type))
- (do-tests-for-backend db-type spec :suites suites)))))))
- (zerop *error-count*))
+ (format report-stream "~%~%Start Running Tests Against: ~A ~A~%~%" db-type (ignore-errors (subseq spec 0 2)))
+ (do-tests-for-backend db-type spec :suites suites)
+ (format report-stream "~%~%Finished Running Tests Against: ~A ~A~%~%" db-type (ignore-errors (subseq spec 0 2))))))))
+ (zerop *error-count*)))
(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)
(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)