* test/automated/fns-tests.el (fns-tests-compare-strings): Update test.

diff --git a/test/ChangeLog b/test/ChangeLog
index 144f10783191013cdc70b0691a3f4b3fac210c80..f9b410bf6004a111d8489c16d56ba00797b83507 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,5 +1,8 @@
 2014-08-02  Glenn Morris  <rgm@gnu.org>
 
+       * automated/fns-tests.el (fns-tests-compare-strings):
+       Update test.  (Bug#17903)
+
        * automated/icalendar-tests.el (icalendar--decode-isodatetime):
        Use more precise TZ specification, as per 2013-08-04.
 

diff --git a/test/automated/fns-tests.el b/test/automated/fns-tests.el
index 461995b602ebbd10c3eddb841445b28f5afe591f..d3d921f425f9188c4bdbef3c863710d2bc244481 100644 (file)
--- a/test/automated/fns-tests.el
+++ b/test/automated/fns-tests.el
@@ -73,7 +73,7 @@
 (ert-deftest fns-tests-compare-strings ()
   (should-error (compare-strings))
   (should-error (compare-strings "xyzzy" "xyzzy"))
-  (should-error (compare-strings "xyzzy" 0 10 "zyxxy" 0 5))
+  (should (= (compare-strings "xyzzy" 0 10 "zyxxy" 0 5) -1))
   (should-error (compare-strings "xyzzy" 0 5 "zyxxy" -1 2))
   (should-error (compare-strings "xyzzy" 'foo nil "zyxxy" 0 1))
   (should-error (compare-strings "xyzzy" 0 'foo "zyxxy" 2 3))