From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 29 Jan 2010 14:52:14 +0000 (-0700)
Subject: Improve formatting skipped-test messages. Fix symbol name.
X-Git-Tag: v4.3.3~8^2~2
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=9b8e5bdaa160e6f916ac287614b1e06aa150699a;hp=907a36ee9f2a80d6e296f76ea4dfd9532260b9bb

Improve formatting skipped-test messages. Fix symbol name.
---

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 5f68e47..fd61e92 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -166,7 +166,7 @@
            (if skip-tests
                (dolist (skipped skip-tests)
                  (format *report-stream*
-                         "~&   ~20A ~A~%" (car skipped) (cdr skipped)))
+                         "~&   ~30A ~A~%" (car skipped) (cdr skipped)))
                (format *report-stream* " None~%")))
     (disconnect)))
 
@@ -256,7 +256,7 @@
 			      :oodml/update-instance/4 :oodml/update-instance/5
 			      :oodml/update-instance/6 :oodml/update-instance/7
 			      :oodml/db-auto-sync/3 :oodml/db-auto-sync/4))
-	   (push (cons test ":auto-increment not supported.") skbip-tests))
+	   (push (cons test ":auto-increment not supported.") skip-tests))
           (t
            (push test-form test-forms)))))
       (values (nreverse test-forms) (nreverse skip-tests))))