User: vins Date: 05/02/02 04:40:03 Modified: xemacs/tests/automated Tag: release-21-4 regexp-tests.el Log: Added shy regexp test for gnus infloop bug. Revision Changes Path No revision No revision 1.2.2.39 +5 -0 XEmacs/xemacs/tests/ChangeLog (In the diff below, changes in quantity of whitespace are not shown.) Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v retrieving revision 1.2.2.38 retrieving revision 1.2.2.39 diff -u -b -r1.2.2.38 -r1.2.2.39 --- ChangeLog 2005/01/16 02:39:11 1.2.2.38 +++ ChangeLog 2005/02/02 03:39:56 1.2.2.39 ＠＠ -1,3 +1,8 ＠＠ +2005-02-01 Vin Shelton <acs(a)xemacs.org&gt; + + * automated/regexp-tests.el: Added an additional shy groups test + authored by Arnaud Giersch <arnaud.giersch(a)free.fr&gt; + 2005-01-14 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * automated/mule-tests.el (file-system character conversion): No revision No revision 1.2.2.10 +5 -0 XEmacs/xemacs/tests/automated/regexp-tests.el (In the diff below, changes in quantity of whitespace are not shown.) Index: regexp-tests.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/automated/regexp-tests.el,v retrieving revision 1.2.2.9 retrieving revision 1.2.2.10 diff -u -b -r1.2.2.9 -r1.2.2.10 --- regexp-tests.el 2005/01/16 02:39:18 1.2.2.9 +++ regexp-tests.el 2005/02/02 03:40:01 1.2.2.10 ＠＠ -442,5 +442,10 ＠＠ (Assert (string= text2 (match-string 0 text2))) (Assert (string= "a" (match-string 1 text2))) (Assert (null (match-string 2 text2))) + + ;; Test Arnaud Giersch's shy group fix + (Assert (progn (string-match "\\(a\\)" "a") + (string-match "\\(?:a\\)" "a") + (not (match-beginning 1)))) )