Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 4415:bceb3e285ae7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
case-tests.el: fix it on non-DEBUG_XEMACS; save standard-case-table, use it 2008-01-30 Aidan Kehoe <kehoea@parhasard.net> * automated/case-tests.el (pristine-case-table): New var, reflecting the standard case table before case-table.el messes with it. * automated/case-tests.el: Call Skip-Test-Unless correctly, following Vin's report of 20a807210801300635v7533d26rdb32a8d82fb4239b@mail.gmail.com . Use pristine-case-table, add in a couple more tests. * automated/test-harness.el (test-harness-from-buffer): Update the error message in the light of tests skipped for other reasons (not to do with absent packages). In this case, because we're exposing diagnostics in a DEBUG_XEMACS build that are no appropriate to expose to non-DEBUG_XEMACS builds.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 30 Jan 2008 22:33:29 +0100
parents 7b628daa39d4
children 294a86d29f99
comparison
equal deleted inserted replaced
4414:df576f30c1d8 4415:bceb3e285ae7
442 (format "\n %d tests skipped because %s." 442 (format "\n %d tests skipped because %s."
443 value key)))) 443 value key))))
444 skipped-test-reasons) 444 skipped-test-reasons)
445 (when (> (length reasons) 1) 445 (when (> (length reasons) 1)
446 (setq summary-msg (concat summary-msg reasons " 446 (setq summary-msg (concat summary-msg reasons "
447 Probably XEmacs cannot find your installed packages. Set EMACSPACKAGEPATH 447 It may be that XEmacs cannot find your installed packages. Set
448 to the package hierarchy root or configure with --package-path to enable 448 EMACSPACKAGEPATH to the package hierarchy root or configure with
449 the skipped tests."))) 449 --package-path to enable the skipped tests.")))
450 (setq test-harness-file-results-alist 450 (setq test-harness-file-results-alist
451 (cons (list filename passes total) 451 (cons (list filename passes total)
452 test-harness-file-results-alist)) 452 test-harness-file-results-alist))
453 (message "%s" summary-msg)) 453 (message "%s" summary-msg))
454 (when (> unexpected-test-file-failures 0) 454 (when (> unexpected-test-file-failures 0)