changeset: 4517:5e8f6469169f510de040ea59a106e1de5c29c73f
user: Stephen J. Turnbull <stephen(a)xemacs.org>
date: Sat Sep 27 16:34:40 2008 +0900
files: tests/ChangeLog tests/automated/regexp-tests.el
description:
Fix up initial condition for skip-chars test.
diff -r e96f3aca4d63ae750580ce3d8b84201321340723 -r
5e8f6469169f510de040ea59a106e1de5c29c73f tests/ChangeLog
--- 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-08-27 Aidan Kehoe <kehoea@parhasa
+2008-09-27 Stephen J. Turnbull <stephen(a)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(a)parhasard.net>
* automated/regexp-tests.el:
diff -r e96f3aca4d63ae750580ce3d8b84201321340723 -r
5e8f6469169f510de040ea59a106e1de5c29c73f tests/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 @@ baaaa
(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 "-[]"))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches