commit: Correct and extend the previous test, thank you Stephen.

changeset: 4423:1982c8c556323d6e9e8f976892f1c55a4fca6273 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Thu Feb 14 22:40:17 2008 +0100 files: tests/ChangeLog tests/automated/case-tests.el description: Correct and extend the previous test, thank you Stephen. 2008-02-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/case-tests.el (let): Correct and extend the previous test, thank you Stephen. diff -r cb33e804774da79ef0410bb18e1b89ebc59df3af -r 1982c8c556323d6e9e8f976892f1c55a4fca6273 tests/ChangeLog --- a/tests/ChangeLog Tue Feb 12 21:54:27 2008 +0100 +++ b/tests/ChangeLog Thu Feb 14 22:40:17 2008 +0100 ＠＠ -1,3 +1,8 ＠＠ 2008-02-11 Aidan Kehoe <kehoea＠parhasa +2008-02-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * automated/case-tests.el (let): + Correct and extend the previous test, thank you Stephen. + 2008-02-11 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/case-tests.el (Assert): diff -r cb33e804774da79ef0410bb18e1b89ebc59df3af -r 1982c8c556323d6e9e8f976892f1c55a4fca6273 tests/automated/case-tests.el --- a/tests/automated/case-tests.el Tue Feb 12 21:54:27 2008 +0100 +++ b/tests/automated/case-tests.el Thu Feb 14 22:40:17 2008 +0100 ＠＠ -285,7 +285,19 ＠＠ (Assert (search-forward "Flei\xdf"))) (with-temp-buffer - (Assert (search-forward "M\xe9zard" nil t))) + (let ((target "M\xe9zard") + (debug-xemacs-searches 1)) + (Assert (not (search-forward target nil t))) + (insert target) + (goto-char (point-min)) + ;; #### search-algorithm-used is simple-search after the following, + ;; which shouldn't be necessary; it should be possible to use + ;; Boyer-Moore. + ;; + ;; But searches for ASCII strings in buffers with nothing above ?\xFF + ;; use Boyer Moore with the current implementation, which is the + ;; important thing for the Gnus use case. + (Assert (= (1+ (length target)) (search-forward target nil t))))) (Skip-Test-Unless (boundp 'debug-xemacs-searches) ; normal when we have DEBUG_XEMACS _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches