Mercurial > hg > xemacs-beta

changeset 4518:e0a8c796f955

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add test for at_dot regexp.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sat, 27 Sep 2008 16:38:11 +0900
parents 5e8f6469169f
children 41c84a94258b
files tests/ChangeLog tests/automated/regexp-tests.el
diffstat 2 files changed, 22 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/tests/ChangeLog	Sat Sep 27 16:34:40 2008 +0900
+++ b/tests/ChangeLog	Sat Sep 27 16:38:11 2008 +0900
@@ -1,3 +1,7 @@
+2008-09-27  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/regexp-tests.el: Add test for at_dot regexp.
+
 2008-09-27  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* automated/regexp-tests.el: `with-string-as-buffer-contents'
--- a/tests/automated/regexp-tests.el	Sat Sep 27 16:34:40 2008 +0900
+++ b/tests/automated/regexp-tests.el	Sat Sep 27 16:38:11 2008 +0900
@@ -545,3 +545,21 @@
 ;; via `replace-regexp-in-string', but we should specifically test bogus
 ;; combinations of STRING and STRBUFFER.
 
+;; empty string at point
+;; Thanks Julian Bradford on XEmacs Beta
+;; <18652.54975.894512.880956@krk.inf.ed.ac.uk>
+(with-string-as-buffer-contents "aáa"
+  (goto-char (point-min))
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 1))
+  (forward-char 1)
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 2))
+  (forward-char 1)
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 3))
+  (forward-char 1)
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 4)))
+
+