Mercurial > hg > xemacs-beta

diff tests/automated/query-coding-tests.el @ 4622:8cbca852bcd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#'check-coding-systems-region: return nil on success, not t. lisp/ChangeLog addition: 2009-02-18 Aidan Kehoe <kehoea@parhasard.net> * coding.el (check-coding-systems-region): Return null on success, not t. See http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1723 tests/ChangeLog addition: 2009-02-18 Aidan Kehoe <kehoea@parhasard.net> * automated/query-coding-tests.el : Check that #'check-coding-systems-region returns null on success here, not t.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 18 Feb 2009 07:53:34 +0000
parents e0a8715fdb1f
children 257b468bf2ca
line wrap: on
line diff
--- a/tests/automated/query-coding-tests.el	Tue Feb 17 13:42:36 2009 +0000
+++ b/tests/automated/query-coding-tests.el	Wed Feb 18 07:53:34 2009 +0000
@@ -413,9 +413,9 @@
               "check #'unencodable-char-position stops at 7 if 2000 asked for")
       ;; Now, #'check-coding-systems-region. 
       ;; UTF-8 should certainly be able to encode these characters:
-      (Assert (eq t (check-coding-systems-region (point-min) (point-max)
+      (Assert (null (check-coding-systems-region (point-min) (point-max)
                                                  '(utf-8)))
-              "check #'check-coding-systems-region gives t if encoding works")
+              "check #'check-coding-systems-region gives nil if encoding works")
       (Assert
        (equal '((iso-8859-1 257 258 259 260 261 262 263)
                 (windows-1252 129 130 131 132 133 134 135 136