* fns-tests.el (fns-tests-nreverse): Update for changed string behavior.

diff --git a/test/ChangeLog b/test/ChangeLog
index 3fed975..d575635 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-22  Glenn Morris  <rgm@gnu.org>
+
+       * automated/fns-tests.el (fns-tests-nreverse):
+       Update for changed string behavior.
+
 2014-05-15  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * automated/fns-tests.el: New file.

diff --git a/test/automated/fns-tests.el b/test/automated/fns-tests.el
index 577298c..21a9e45 100644 (file)
--- a/test/automated/fns-tests.el
+++ b/test/automated/fns-tests.el
@@ -39,7 +39,7 @@
   (should-error (nreverse))
   (should-error (nreverse 1))
   (should-error (nreverse (make-char-table 'foo)))
-  (should-error (nreverse "xyzzy"))
+  (should (equal (nreverse "xyzzy") "yzzyx"))
   (let ((A []))
     (nreverse A)
     (should (equal A [])))