[Emacs-diffs] trunk r117632: * test/automated/fns-tests.el (fns-tests-compare-strings): Update test.

[Glenn Morris]

------------------------------------------------------------
revno: 117632
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2014-08-02 16:22:31 -0400
message:
  * test/automated/fns-tests.el (fns-tests-compare-strings): Update test.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/fns-tests.el    fnstests.el-20140515083159-ls2r7gfl9o74ajzm-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-08-02 05:44:18 +0000
+++ b/test/ChangeLog    2014-08-02 20:22:31 +0000
@@ -1,5 +1,8 @@
 2014-08-02  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'test/automated/fns-tests.el'
--- a/test/automated/fns-tests.el       2014-06-25 10:36:51 +0000
+++ b/test/automated/fns-tests.el       2014-08-02 20:22:31 +0000
@@ -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))