Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 4948:8b230c53075b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix some tests in `make check', also add our own file-tests -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-01-25 Ben Wing <ben@xemacs.org> * mule/cyrillic.el (koi8-c): Fix bug in #83 mapping. * mule/vietnamese.el (viscii): Fix bug in #A6 mapping. tests/ChangeLog addition: 2010-01-25 Ben Wing <ben@xemacs.org> * automated/file-tests.el: New file. * automated/mule-tests.el (featurep): * automated/test-harness.el (test-harness-from-buffer): * automated/test-harness.el (batch-test-emacs):
author Ben Wing <ben@xemacs.org>
date Mon, 25 Jan 2010 03:03:49 -0600
parents 9bf09492cff7
children db2db229ee82
comparison
equal deleted inserted replaced
4947:4faad22a9fe5 4948:8b230c53075b
301 here will be concatenated with a phrase describing the expected and actual 301 here will be concatenated with a phrase describing the expected and actual
302 values of the comparison. Optional DESCRIPTION describes the assertion; by 302 values of the comparison. Optional DESCRIPTION describes the assertion; by
303 default, the unevalated comparison expressions are given. FAILING-CASE and 303 default, the unevalated comparison expressions are given. FAILING-CASE and
304 DESCRIPTION are useful when Assert is used in a loop." 304 DESCRIPTION are useful when Assert is used in a loop."
305 (let* ((assertion `(,test ,testval ,expected)) 305 (let* ((assertion `(,test ,testval ,expected))
306 (failmsg `(format "expected %S, got %S" ,expected ,testval)) 306 (failmsg `(format "got %S, expected %S" ,testval ,expected))
307 (failmsg2 (if failing-case `(concat 307 (failmsg2 (if failing-case `(concat
308 (format "%S, " ,failing-case) 308 (format "%S, " ,failing-case)
309 ,failmsg) 309 ,failmsg)
310 failmsg))) 310 failmsg)))
311 `(Assert ,assertion ,failmsg2 ,description))) 311 `(Assert ,assertion ,failmsg2 ,description)))
612 (defun batch-test-emacs () 612 (defun batch-test-emacs ()
613 "Run `test-harness' on the files remaining on the command line. 613 "Run `test-harness' on the files remaining on the command line.
614 Use this from the command line, with `-batch'; 614 Use this from the command line, with `-batch';
615 it won't work in an interactive Emacs. 615 it won't work in an interactive Emacs.
616 Each file is processed even if an error occurred previously. 616 Each file is processed even if an error occurred previously.
617 For example, invoke \"xemacs -batch -f batch-test-emacs tests/*.el\"" 617 A directory can be given as well, and all files will be processed --
618 however, the file test-harness.el, which implements the test harness,
619 will be skipped.
620 For example, invoke \"xemacs -batch -f batch-test-emacs tests\""
618 ;; command-line-args-left is what is left of the command line (from 621 ;; command-line-args-left is what is left of the command line (from
619 ;; startup.el) 622 ;; startup.el)
620 (defvar command-line-args-left) ;Avoid 'free variable' warning 623 (defvar command-line-args-left) ;Avoid 'free variable' warning
621 (defvar debug-issue-ebola-notices) 624 (defvar debug-issue-ebola-notices)
622 (if (not noninteractive) 625 (if (not noninteractive)