Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 1175:2af1f88a2d31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-12-27 06:13:13 by stephent] mule re tests <87el84sru1.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Fri, 27 Dec 2002 06:15:01 +0000
parents 0d33547d9ed3
children 3f6adebda25c
comparison
equal deleted inserted replaced
1174:517c19223b40 1175:2af1f88a2d31
156 (if (noninteractive) (apply #'message fmt args)) 156 (if (noninteractive) (apply #'message fmt args))
157 (princ (concat (apply #'format fmt args) "\n"))) 157 (princ (concat (apply #'format fmt args) "\n")))
158 158
159 (defun Print-Pass (fmt &rest args) 159 (defun Print-Pass (fmt &rest args)
160 (setq fmt (concat "PASS: " fmt)) 160 (setq fmt (concat "PASS: " fmt))
161 ;; #### should warn if expecting failure here!
161 (and test-harness-verbose 162 (and test-harness-verbose
162 (princ (concat (apply #'format fmt args) "\n")))) 163 (princ (concat (apply #'format fmt args) "\n"))))
163 164
164 (defun Print-Skip (test reason &optional fmt &rest args) 165 (defun Print-Skip (test reason &optional fmt &rest args)
165 (setq fmt (concat "SKIP: %S BECAUSE %S" fmt)) 166 (setq fmt (concat "SKIP: %S BECAUSE %S" fmt))