src/c-types-test.lisp, src/test-base.lisp: Force pretty-printing.

It seems that later `xlunit' versions turn this off.

diff --git a/src/c-types-test.lisp b/src/c-types-test.lisp
index 6022991b08e254d19493f2268ce507da8d1aa4f9..06af0d4e52d22b41e356a60fa6bd2ad97ac3d4c7 100644 (file)
--- a/src/c-types-test.lisp
+++ b/src/c-types-test.lisp
@@ -58,6 +58,7 @@ (defun expand-tabs (string)
 
 (defun assert-pp-ctype (type kernel string)
   (let* ((*print-right-margin* 77)
 
 (defun assert-pp-ctype (type kernel string)
   (let* ((*print-right-margin* 77)

+        (*print-pretty* t)

         (print (with-output-to-string (out)
                  (pprint-c-type type out kernel))))
     (assert-equal (expand-tabs print) (expand-tabs string)
         (print (with-output-to-string (out)
                  (pprint-c-type type out kernel))))
     (assert-equal (expand-tabs print) (expand-tabs string)

diff --git a/src/test-base.lisp b/src/test-base.lisp
index e629357e54ca284833028a3c3bb4456f6e094b70..915e33ded88cc440b1e85ed0422c6b0a3a2e913c 100644 (file)
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -45,8 +45,9 @@ (defvar *sod-test-suite*
                 :description "Top-level test for the Sod translator."))
 
 (defun assert-princ (object string)
                 :description "Top-level test for the Sod translator."))
 
 (defun assert-princ (object string)

-  (let ((*print-right-margin* 77)
-       (print (princ-to-string object)))
+  (let* ((*print-right-margin* 77)
+        (*print-pretty* t)
+        (print (princ-to-string object)))

     (assert-equal print string
                  (format nil "Assert princ: ~S ~_prints as `~A' ~_~
                               rather than `~A'."
     (assert-equal print string
                  (format nil "Assert princ: ~S ~_prints as `~A' ~_~
                               rather than `~A'."