Changeset 9185


Ignore:
Timestamp:
Apr 18, 2008, 4:07:32 PM (11 years ago)
Author:
gz
Message:

Add regression test for column counting bug

File:
1 edited

Legend:

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

    r9166 r9185  
    3535         :good)
    3636  :good)
     37
     38(deftest ccl.40927  ;; fixed in r9183 and r9184
     39    (let ((s (make-string-output-stream))
     40          (line1 "Line1
     41")
     42          (line2 "Line2"))
     43      (count #\Newline (format nil "~a~&~a" line1 line2)))
     44  1)
Note: See TracChangeset for help on using the changeset viewer.