changeset: 4553:e0a8c796f955d2559194ffbf875c1d415087f99d user: Stephen J. Turnbull <stephen(a)xemacs.org&gt; date: Sat Sep 27 16:38:11 2008 +0900 files: tests/ChangeLog tests/automated/regexp-tests.el description: Add test for at_dot regexp. diff -r 5e8f6469169f510de040ea59a106e1de5c29c73f -r e0a8c796f955d2559194ffbf875c1d415087f99d tests/ChangeLog --- 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 <stephe +2008-09-27 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * automated/regexp-tests.el: Add test for at_dot regexp. + 2008-09-27 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * automated/regexp-tests.el: `with-string-as-buffer-contents' diff -r 5e8f6469169f510de040ea59a106e1de5c29c73f -r e0a8c796f955d2559194ffbf875c1d415087f99d tests/automated/regexp-tests.el --- 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 ＠＠ baaaa ;; 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(a)krk.inf.ed.ac.uk&gt; +(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))) + + _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches