Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/tests/automated/regexp-tests.el	Mon Aug 13 11:37:23 2007 +0200
+++ b/tests/automated/regexp-tests.el	Mon Aug 13 11:38:25 2007 +0200
@@ -204,3 +204,12 @@
 	  (setq i (1+ i))))))
 
 ;; (test-regex-charset-mule-paranoid)
+
+;; Test replace-match
+(with-temp-buffer
+  (insert "This is a test buffer.")
+  (goto-char (point-min))
+  (search-forward "this is a test ")
+  (looking-at "Unmatchable text")
+  (replace-match "")
+  (Assert (looking-at "^buffer.$")))