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

2 files changed, 4 insertions, 1 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 144f1078319..f9b410bf600 100644
--- 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 461995b602e..d3d921f425f 100644
--- 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))