# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1203025217 -3600
# Node ID 1982c8c556323d6e9e8f976892f1c55a4fca6273
# Parent  cb33e804774da79ef0410bb18e1b89ebc59df3af
Correct and extend the previous test, thank you Stephen.

2008-02-14  Aidan Kehoe  <kehoea@parhasard.net>

	* automated/case-tests.el (let):
	Correct and extend the previous test, thank you Stephen.

diff -r cb33e804774d -r 1982c8c55632 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-14  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* automated/case-tests.el (let):
+	Correct and extend the previous test, thank you Stephen. 
+
 2008-02-11  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* automated/case-tests.el (Assert): 
diff -r cb33e804774d -r 1982c8c55632 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