XEmacs 21.2.39 "Millennium".

[chise/xemacs-chise.git-] / tests / automated / regexp-tests.el

diff --git a/tests/automated/regexp-tests.el b/tests/automated/regexp-tests.el
index 2df3156..292abeb 100644 (file)
--- a/tests/automated/regexp-tests.el
+++ b/tests/automated/regexp-tests.el
@@ -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.$")))