Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 1758:90502933fb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-10-21 08:21:00 by stephent] revert "fix space leak" patch <87oewb0zqn.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 21 Oct 2003 08:21:08 +0000
parents 5a9a66ba67ca
children db7c7e251153
comparison
equal deleted inserted replaced
1757:d7a328610d7d 1758:90502933fb98
41 ;;; You run the tests using M-x test-emacs-test-file, 41 ;;; You run the tests using M-x test-emacs-test-file,
42 ;;; or $(EMACS) -batch -l .../test-harness.el -f batch-test-emacs file ... 42 ;;; or $(EMACS) -batch -l .../test-harness.el -f batch-test-emacs file ...
43 ;;; which is run for you by the `make check' target in the top-level Makefile. 43 ;;; which is run for you by the `make check' target in the top-level Makefile.
44 44
45 (require 'bytecomp) 45 (require 'bytecomp)
46
47 (defvar test-harness-test-compiled nil
48 "Non-nil means the test code was compiled before execution.")
46 49
47 (defvar test-harness-verbose 50 (defvar test-harness-verbose
48 (and (not noninteractive) (> (device-baud-rate) search-slow-speed)) 51 (and (not noninteractive) (> (device-baud-rate) search-slow-speed))
49 "*Non-nil means print messages describing progress of emacs-tester.") 52 "*Non-nil means print messages describing progress of emacs-tester.")
50 53
314 error-info)) 317 error-info))
315 (message "Unexpected error %S while executing interpreted code." error-info) 318 (message "Unexpected error %S while executing interpreted code." error-info)
316 (message "Test suite execution aborted." error-info) 319 (message "Test suite execution aborted." error-info)
317 )) 320 ))
318 (princ "\nTesting Compiled Lisp\n\n") 321 (princ "\nTesting Compiled Lisp\n\n")
319 (let (code) 322 (let (code
323 (test-harness-test-compiled t))
320 (condition-case error-info 324 (condition-case error-info
321 (setq code 325 (setq code
322 ;; our lisp code is often intentionally dubious, 326 ;; our lisp code is often intentionally dubious,
323 ;; so throw away _all_ the byte compiler warnings. 327 ;; so throw away _all_ the byte compiler warnings.
324 (letf (((symbol-function 'byte-compile-warn) 'ignore)) 328 (letf (((symbol-function 'byte-compile-warn) 'ignore))