X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=tests%2Fautomated%2Fregexp-tests.el;fp=tests%2Fautomated%2Fregexp-tests.el;h=213f8c8be598f018e4753995ee71cc159f51a70f;hp=816868f7a273fe40e9bf425287b2f920a8bf265a;hb=63a686a3d18465a8c96b8cc4a273c295f8a5a379;hpb=89559a53b9683058a6cea41ce3f8f6c9bd067238

diff --git a/tests/automated/regexp-tests.el b/tests/automated/regexp-tests.el
index 816868f..213f8c8 100644
--- a/tests/automated/regexp-tests.el
+++ b/tests/automated/regexp-tests.el
@@ -449,3 +449,20 @@ baaaa
 		 (not (match-beginning 1))))
 )
 
+
+;; 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)))