Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 1656:f8bd59163c60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-08-31 17:30:17 by adrian] [AC21.5R21.4] [PATCH] xemacs-21.5: test-harness.el to log results when run noninteractive -------------------- ChangeLog entries follow: -------------------- tests/ChangeLog addition: 2003-08-31 Adrian Aichner <adrian@xemacs.org> * automated/test-harness.el (test-harness-from-buffer): Log results when running noninteractive. * automated/test-harness.el (batch-test-emacs): Remove misplaced debugging code.
author adrian
date Sun, 31 Aug 2003 17:30:19 +0000
parents 74cb069b8417
children adcbad629af5
comparison
equal deleted inserted replaced
1655:6f3d0f871934 1656:f8bd59163c60
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 ))) 356 (and noninteractive
357 (message "%s" (buffer-substring-no-properties
358 nil nil "*Test-Log*"))))))
357 359
358 (defvar test-harness-results-point-max nil) 360 (defvar test-harness-results-point-max nil)
359 (defmacro displaying-emacs-test-results (&rest body) 361 (defmacro displaying-emacs-test-results (&rest body)
360 `(let ((test-harness-results-point-max test-harness-results-point-max)) 362 `(let ((test-harness-results-point-max test-harness-results-point-max))
361 ;; Log the file name. 363 ;; Log the file name.
430 "test-harness.el")))) 432 "test-harness.el"))))
431 (or (batch-test-emacs-1 file-in-dir) 433 (or (batch-test-emacs-1 file-in-dir)
432 (setq error t)))) 434 (setq error t))))
433 (or (batch-test-emacs-1 file) 435 (or (batch-test-emacs-1 file)
434 (setq error t)))) 436 (setq error t))))
435 ;;(message "%s" (buffer-string nil nil "*Test-Log*"))
436 (message "Done") 437 (message "Done")
437 (kill-emacs (if error 1 0)))) 438 (kill-emacs (if error 1 0))))
438 439
439 (provide 'test-harness) 440 (provide 'test-harness)
440 441