print start and stop messages while testing (probably remove, but for now I am having...

[clsql.git] / tests / test-init.lisp

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index a12d2144d77c767bc568543b119ba7b4d227a439..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))
-              (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+)
@@ -235,7 +237,8 @@
       (let ((test (second test-form)))
         (cond
          ((and (not (eql db-underlying-type :mysql))
-               (clsql-sys:in test :connection/query-command))
+               (clsql-sys:in test :connection/query-command
+                              :basic/reallybigintegers/1))
           (push (cons test "known to work only in MySQL as yet.") skip-tests))
           ((and (null (clsql-sys:db-type-has-views? db-underlying-type))
                 (clsql-sys:in test :fddl/view/1 :fddl/view/2 :fddl/view/3 :fddl/view/4))
@@ -262,8 +265,7 @@
           ((and (eql *test-database-type* :sqlite3)
                 (clsql-sys:in test :fddl/view/4 :fdml/select/10
                               :fdml/select/21 :fdml/select/32
-                              :fdml/select/33
-                              :basic/reallybigintegers/1))
+                              :fdml/select/33))
            (push (cons test "not supported by sqlite3.") skip-tests))
           ((and (not (clsql-sys:db-type-has-bigint? db-type))
                 (clsql-sys:in test :basic/bigint/1))