Changeset 14889


Ignore:
Timestamp:
Jul 18, 2011, 11:33:52 PM (8 years ago)
Author:
gz
Message:

Add test for ~* error stack overflow

File:
1 edited

Legend:

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

    r14781 r14889  
    18021802    (eql 111 (aref m 2 3 4)))
    18031803  t)
     1804
     1805(deftest ccl.format-goto-error
     1806    (handler-case
     1807        (format nil "This is an error ~*~a")
     1808      (error (c)
     1809        (handler-case (progn
     1810                        (ccl::report-condition c (make-broadcast-stream))
     1811                        :win)
     1812          (error (cc) :error))))
     1813  :win)
Note: See TracChangeset for help on using the changeset viewer.