CVS update by stephent xemacs/tests/automated ...

[xemacs-cvs at xemacs.org]

  User: stephent
  Date: 07/03/25 17:57:35

  Modified:    xemacs/tests/automated syntax-tests.el
Log:
Regression test for OG's patch. <87648pwbq1.fsf at uwakimon.sk.tsukuba.ac.jp>

Revision  Changes    Path
1.87      +6 -0      XEmacs/xemacs/tests/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -p -r1.86 -r1.87
--- ChangeLog	2006/11/25 22:06:29	1.86
+++ ChangeLog	2007/03/25 15:57:32	1.87
@@ -1,3 +1,9 @@
+2007-03-26  Stephen J. Turnbull  <stephen at xemacs.org>
+
+	* automated/syntax-tests.el: Test for regression of bug fixed by
+	Olivier Galibert <20070324221053.GA48218 at dspnet.fr.eu.org>.  Test
+	by Ralf Angeli http://article.gmane.org/gmane.emacs.xemacs.beta/17353.
+
 2006-11-25  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* automated/iso-ir-196-test.el:



1.7       +16 -0     XEmacs/xemacs/tests/automated/syntax-tests.el

Index: syntax-tests.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/automated/syntax-tests.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- syntax-tests.el	2005/12/08 10:58:59	1.6
+++ syntax-tests.el	2007/03/25 15:57:34	1.7
@@ -129,6 +129,22 @@
   ;; Apply word to punctuation
   (test-syntax-table "W." 1 `(,(syntax-string-to-code "w")) 2))
 
+;; According to Ralf Angeli in
+;; http://article.gmane.org/gmane.emacs.xemacs.beta/17353:
+;; Using a fresh CVS checkout of XEmacs trunk the following snippet
+;; returns "1" when evaluated whereas it returns "5" in GNU Emacs 21.3,
+;; CVS GNU Emacs and XEmacs 21.4.15.
+;; If `set-syntax-table' is used instead of `with-syntax-table', CVS
+;; XEmacs returns "5" as well, so I suppose that there is a problem in
+;; `with-syntax-table' or a function called by it.
+
+;; Fixed 2007-03-25 Olivier Galibert <20070324221053.GA48218 at dspnet.fr.eu.org>
+(with-temp-buffer
+  (with-syntax-table (make-syntax-table)
+    (insert "foo bar")
+    (backward-sexp 1)
+    (Assert (eql (point) 5))))
+
 ;; Test forward-comment at buffer boundaries
 ;; #### The second Assert fails (once interpreted, once compiled) on 21.4.9
 ;; with sjt's version of Andy's syntax-text-property-killer patch.