X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=8ce12ed654669429407a30489f7e992304e77c04;hb=26720328bdd7d8f28c3247063c477f05f3a7251e;hp=bd8fc99a86a45f3f4d12e780e083fc2715646843;hpb=f437fdd8966b0f4bd80a2b8657bb12df07430b83;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index bd8fc99..8ce12ed 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -173,9 +173,14 @@
 
            (format *report-stream* "~&Tests skipped:")
            (if skip-tests
-               (dolist (skipped skip-tests)
-                 (format *report-stream*
-                         "~&   ~30A ~A~%" (car skipped) (cdr skipped)))
+               (let ((max-test-name 20))
+                 (dolist (skipped skip-tests)
+                   (let ((len (length (symbol-name (car skipped)))))
+                     (when (> len max-test-name)
+                       (setq max-test-name len))))
+                 (let ((fmt (format nil "~~&  ~~~DA ~~A~~%" max-test-name)))
+                   (dolist (skipped skip-tests)
+                     (format *report-stream* fmt (car skipped) (cdr skipped)))))
                (format *report-stream* " None~%")))
     (disconnect)))
 
@@ -281,13 +286,17 @@
 			    '(:postgresql :postgresql-socket)))
                (clsql-sys:in test
                              :time/pg/fdml/usec :time/pg/oodml/no-usec :time/pg/oodml/usec))
-          (push (cons test "cant run the same date/time tests everywhere that we do on postgres because there are not standard datetime database types.")
+          (push (cons test "Postgres specific test.")
                 skip-tests))
          ((and (member *test-database-underlying-type* '(:mysql))
+               (clsql-sys:in test :time/cross-platform/msec
+			     :time/cross-platform/usec/no-tz :time/cross-platform/usec/tz))
+          (push (cons test "MySQL doesn't support fractional seconds on timestamp columns (http://forge.mysql.com/worklog/task.php?id=946).")
+                skip-tests))
+	  ((and (member *test-database-underlying-type* '(:mssql))
                (clsql-sys:in test :time/cross-platform/usec/no-tz :time/cross-platform/usec/tz))
-          (push (cons test "Mysql does not support fractional seconds (on timestamp columns), see http://forge.mysql.com/worklog/task.php?id=946 perhaps?")
+          (push (cons test "MSSQL doesn't support micro-seconds on datetime columns.")
                 skip-tests))
-
           (t
            (push test-form test-forms)))))
       (values (nreverse test-forms) (nreverse skip-tests))))