Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 3ecd8885ac67
children 6728e641994e
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
234 (message "Test suite execution aborted." error-info) 234 (message "Test suite execution aborted." error-info)
235 )) 235 ))
236 (princ "\nTesting Compiled Lisp\n\n") 236 (princ "\nTesting Compiled Lisp\n\n")
237 (let (code) 237 (let (code)
238 (condition-case error-info 238 (condition-case error-info
239 (setq code (let ((byte-compile-warnings nil)) 239 (setq code
240 (byte-compile (test-harness-read-from-buffer inbuffer)))) 240 ;; our lisp code is often intentionally dubious,
241 ;; so throw away _all_ the byte compiler warnings.
242 (letf (((symbol-function 'byte-compile-warn) 'ignore))
243 (byte-compile (test-harness-read-from-buffer inbuffer))))
241 (error 244 (error
242 (princ (format "Unexpected error %S while byte-compiling code\n" 245 (princ (format "Unexpected error %S while byte-compiling code\n"
243 error-info)))) 246 error-info))))
244 (condition-case error-info 247 (condition-case error-info
245 (if code (funcall code)) 248 (if code (funcall code))