Fixed error in read-sql-value that was throwing no next-method errors

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

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index d1de92e94668eda0afacc5dc61e6148c2a2472af..8312784216c8fd84f50f4575f255bab0de691363 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -216,7 +216,9 @@
 
          (%do-tests test-forms db-type)
 
-           (format *report-stream* "~&Tests skipped:")
+         (format *report-stream* "~&~D of ~D Tests skipped:"
+                 (length skip-tests)
+                 (length test-forms))
            (if skip-tests
                (let ((max-test-name (length (symbol-name (caar skip-tests)))))
                  (dolist (skipped (cdr skip-tests))