mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 03:40:31 -07:00
Code Issues Projects Releases Packages Wiki Activity

tests: add regression test for *trace-output*

Browse source
This commit is contained in:
Daniel Kochmański 2016-06-21 17:20:41 +02:00
parent f54b0d9c78
commit f66dd64e6f
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/tests/regressions/tests/mixed.lsp
View file

@ -123,3 +123,24 @@
(restart-case
(signal 'x :y 1)))
nil))
;;; Date: 2016-04-21 (Juraj)
;;; Fixed: 2016-06-21 (Daniel Kochmański)
;;; Description:
;;;
;;; Trace did not respect *TRACE-OUTPUT*.
;;;
;;; Bug: https://gitlab.com/embeddable-common-lisp/ecl/issues/236
;;;
(ext:with-clean-symbols (fact)
(deftest mixed.0010.*trace-output*
(progn
(defun fact (n) (if (zerop n) :boom (fact (1- n))))
(zerop (length
(with-output-to-string (*trace-output*)
(trace fact)
(fact 3)
(untrace fact)
*trace-output*))))
nil))