From 9b8e5bdaa160e6f916ac287614b1e06aa150699a Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Fri, 29 Jan 2010 07:52:14 -0700 Subject: [PATCH] Improve formatting skipped-test messages. Fix symbol name. --- tests/test-init.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.34.1