From: Nikodemus S. <de...@us...> - 2005-04-01 16:48:37
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1820/tests Modified Files: compiler.impure.lisp eval.impure.lisp Added Files: compiler-output-test.lisp Log Message: 0.8.21.12: compiler message fixes * print "caught FOO" messages and error summaries to *ERROR-OUTPUT*, not to *STANDARD-OUTPUT*. * wrap EVAL guts in WITH-COMPILATION-UNIT so that multiple subforms requiring compilation have their output condenced. * clean up compilation summary newline handling. --- NEW FILE: compiler-output-test.lisp --- ;;; compiled by compiler.impure.lisp (defun square (x) (declare (optimize speed)) (* x x)) (defun unused-var (x) 1) (defun style-thing (&optional x &key y) (cons x y)) (defun (bad name) ()) ;; "fatal error" from this one ) Index: compiler.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure.lisp,v retrieving revision 1.57 retrieving revision 1.58 diff -u -d -r1.57 -r1.58 --- compiler.impure.lisp 6 Jan 2005 12:48:05 -0000 1.57 +++ compiler.impure.lisp 1 Apr 2005 16:48:09 -0000 1.58 @@ -990,5 +990,13 @@ (grovel-results name)))))) (identify-suspect-vops) +;;;; tests for compiler output +(let* ((*error-output* (make-broadcast-stream)) + (output (with-output-to-string (*standard-output*) + (compile-file "compiler-output-test.lisp" + :print nil :verbose nil)))) + (print output) + (assert (zerop (length output)))) + ;;; success (quit :unix-status 104) Index: eval.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/eval.impure.lisp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- eval.impure.lisp 7 Dec 2004 13:30:44 -0000 1.7 +++ eval.impure.lisp 1 Apr 2005 16:48:09 -0000 1.8 @@ -131,5 +131,10 @@ (assert (eq (eval '(function function-eq-test)) (funcall (compile nil '(lambda () (function function-eq-test)))))) +;;; No extra output, please +(assert (equal ".." + (with-output-to-string (*standard-output*) + (eval '(progn (princ ".") (let ((x 42)) t) (princ ".")))))) + ;;; success (sb-ext:quit :unix-status 104) |