Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 1231:3f6adebda25c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-01-23 11:24:08 by stephent] sigpipe <87u1g0ktd8.fsf@tleepslib.sk.tsukuba.ac.jp> test-harness.el <87ptqoktab.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 23 Jan 2003 11:24:13 +0000
parents 2af1f88a2d31
children aa15a2bbba1a
comparison
equal deleted inserted replaced
1230:78781398fc4c 1231:3f6adebda25c
320 missing-message-failures 320 missing-message-failures
321 other-failures)) 321 other-failures))
322 (basename (file-name-nondirectory filename)) 322 (basename (file-name-nondirectory filename))
323 (summary-msg 323 (summary-msg
324 (if (> total 0) 324 (if (> total 0)
325 (format "%s: %d of %d (%d%%) tests successful." 325 (format "%s: %d of %d tests successful (%d%%)."
326 basename passes total (/ (* 100 passes) total)) 326 basename passes total (/ (* 100 passes) total))
327 (format "%s: No tests run" basename))) 327 (format "%s: No tests run" basename)))
328 (reasons "")) 328 (reasons ""))
329 (maphash (lambda (key value) 329 (maphash (lambda (key value)
330 (setq reasons 330 (setq reasons