Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 1717:adcbad629af5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-26 20:48:10 by adrian] xemacs-21.5: Revert logging test-harness results per Stephen J. Turnbull's veto. -------------------- ChangeLog entries follow: -------------------- tests/ChangeLog addition: 2003-09-26 Adrian Aichner <adrian@xemacs.org> * automated/test-harness.el (test-harness-from-buffer): Revert logging results when running noninteractive per Stephen J. Turnbull's veto.
author adrian
date Fri, 26 Sep 2003 20:48:13 +0000
parents f8bd59163c60
children d9c4b6e360d8
comparison
equal deleted inserted replaced
1716:022d0f785096 1717:adcbad629af5
351 (fmakunbound 'Check-Error) 351 (fmakunbound 'Check-Error)
352 (fmakunbound 'Check-Message) 352 (fmakunbound 'Check-Message)
353 (fmakunbound 'Check-Error-Message) 353 (fmakunbound 'Check-Error-Message)
354 (fmakunbound 'Ignore-Ebola) 354 (fmakunbound 'Ignore-Ebola)
355 (fmakunbound 'Int-to-Marker) 355 (fmakunbound 'Int-to-Marker)
356 (and noninteractive 356 )))
357 (message "%s" (buffer-substring-no-properties
358 nil nil "*Test-Log*"))))))
359 357
360 (defvar test-harness-results-point-max nil) 358 (defvar test-harness-results-point-max nil)
361 (defmacro displaying-emacs-test-results (&rest body) 359 (defmacro displaying-emacs-test-results (&rest body)
362 `(let ((test-harness-results-point-max test-harness-results-point-max)) 360 `(let ((test-harness-results-point-max test-harness-results-point-max))
363 ;; Log the file name. 361 ;; Log the file name.