From 3865ce6754d3e2af77ee4df8269b325cef312b3b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 2 Aug 2014 16:22:31 -0400 Subject: [PATCH] * test/automated/fns-tests.el (fns-tests-compare-strings): Update test. --- test/ChangeLog | 3 +++ test/automated/fns-tests.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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)) -- 2.39.5