Changeset 10215


Ignore:
Timestamp:
Jul 27, 2008, 4:10:54 PM (11 years ago)
Author:
gz
Message:

regression test for pretty printer bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r10014 r10215  
    410410(deftest ccl.complex-cos
    411411    (< (imagpart (cos (complex 1 1))) 0)
     412  t)
     413
     414(deftest ccl.space-symbol
     415    (let* ((list '(|aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa|
     416                   | | | | | | | | | | | | | | | | | | | | | |
     417                   |aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa|))
     418           (result (read-from-string
     419                    (with-output-to-string (s)
     420                      (let ((*print-readably* t))
     421                        (pprint list s))))))
     422      (or (equal list result) result))
    412423  t)
    413424
Note: See TracChangeset for help on using the changeset viewer.