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

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
line wrap: on
line diff
--- a/tests/automated/test-harness.el	Mon Jan 25 02:48:52 2010 -0600
+++ b/tests/automated/test-harness.el	Mon Jan 25 03:03:49 2010 -0600
@@ -303,7 +303,7 @@
 default, the unevalated comparison expressions are given.  FAILING-CASE and
 DESCRIPTION are useful when Assert is used in a loop."
 	(let* ((assertion `(,test ,testval ,expected))
-	       (failmsg `(format "expected %S, got %S" ,expected ,testval))
+	       (failmsg `(format "got %S, expected %S" ,testval ,expected))
 	       (failmsg2 (if failing-case `(concat 
 					   (format "%S, " ,failing-case)
 					   ,failmsg)
@@ -614,7 +614,10 @@
 Use this from the command line, with `-batch';
 it won't work in an interactive Emacs.
 Each file is processed even if an error occurred previously.
-For example, invoke \"xemacs -batch -f batch-test-emacs tests/*.el\""
+A directory can be given as well, and all files will be processed --
+however, the file test-harness.el, which implements the test harness,
+will be skipped.
+For example, invoke \"xemacs -batch -f batch-test-emacs tests\""
   ;; command-line-args-left is what is left of the command line (from
   ;; startup.el)
   (defvar command-line-args-left)	;Avoid 'free variable' warning