Mercurial > hg > xemacs-beta

comparison tests/automated/regexp-tests.el @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 1ccc32a20af4
children ccaf90c5a53a
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
202 (Assert (not (string-match range string))) 202 (Assert (not (string-match range string)))
203 (Assert (string-match range-not string)))) 203 (Assert (string-match range-not string))))
204 (setq i (1+ i)))))) 204 (setq i (1+ i))))))
205 205
206 ;; (test-regex-charset-mule-paranoid) 206 ;; (test-regex-charset-mule-paranoid)
207
208 ;; Test replace-match
209 (with-temp-buffer
210 (insert "This is a test buffer.")
211 (goto-char (point-min))
212 (search-forward "this is a test ")
213 (looking-at "Unmatchable text")
214 (replace-match "")
215 (Assert (looking-at "^buffer.$")))