changeset 4517:5e8f6469169f

Fix up initial condition for skip-chars test.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sat, 27 Sep 2008 16:34:40 +0900
parents e96f3aca4d63
children e0a8c796f955
files tests/ChangeLog tests/automated/regexp-tests.el
diffstat 2 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/tests/ChangeLog	Sat Sep 27 16:31:32 2008 +0900
+++ b/tests/ChangeLog	Sat Sep 27 16:34:40 2008 +0900
@@ -1,3 +1,8 @@
+2008-09-27  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/regexp-tests.el: `with-string-as-buffer-contents'
+	leaves point at end of buffer, so must move point to beginning.
+
 2008-08-27  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* automated/regexp-tests.el: 
--- a/tests/automated/regexp-tests.el	Sat Sep 27 16:31:32 2008 +0900
+++ b/tests/automated/regexp-tests.el	Sat Sep 27 16:34:40 2008 +0900
@@ -526,6 +526,7 @@
 
 (with-string-as-buffer-contents 
     "-]-----------------------------][]]------------------------"
+  (goto-char (point-min))
   (skip-chars-forward (skip-chars-quote "-[]"))
   (Assert (= (point) (point-max)))
   (skip-chars-backward (skip-chars-quote "-[]"))