Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 4199:3660d327399f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-10-01 08:07:39 by stephent] Implement subexpression replacement in replace-match. <87ejgf6yy9.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Mon, 01 Oct 2007 08:07:57 +0000
parents 43b4a54fbf66
children 94509abd0ef0
comparison
equal deleted inserted replaced
4198:fb83e69ce80a 4199:3660d327399f
283 (setq trick-optimizer (progn ,@body)) 283 (setq trick-optimizer (progn ,@body))
284 (Print-Failure "%S executed successfully, but expected error %S" 284 (Print-Failure "%S executed successfully, but expected error %S"
285 ,quoted-body ',expected-error) 285 ,quoted-body ',expected-error)
286 (incf no-error-failures)) 286 (incf no-error-failures))
287 (,expected-error 287 (,expected-error
288 ;; #### Damn, this binding doesn't capture frobs, eg, for
289 ;; invalid_argument() ... you only get the REASON. And for
290 ;; wrong_type_argument(), there's no reason only FROBs.
291 ;; If this gets fixed, fix tests in regexp-tests.el.
288 (let ((error-message (second error-info))) 292 (let ((error-message (second error-info)))
289 (if (string-match ,expected-error-regexp error-message) 293 (if (string-match ,expected-error-regexp error-message)
290 (progn 294 (progn
291 (Print-Pass "%S ==> error %S %S, as expected" 295 (Print-Pass "%S ==> error %S %S, as expected"
292 ,quoted-body error-message ',expected-error) 296 ,quoted-body error-message ',expected-error)