Mercurial > hg > xemacs-beta
comparison tests/automated/query-coding-tests.el @ 4622:8cbca852bcd4
#'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 |
comparison
equal
deleted
inserted
replaced
| 4621:127dbf03e1af | 4622:8cbca852bcd4 |
|---|---|
| 411 (unencodable-char-position (point-min) (point-max) | 411 (unencodable-char-position (point-min) (point-max) |
| 412 'iso-8859-1 2000)) | 412 'iso-8859-1 2000)) |
| 413 "check #'unencodable-char-position stops at 7 if 2000 asked for") | 413 "check #'unencodable-char-position stops at 7 if 2000 asked for") |
| 414 ;; Now, #'check-coding-systems-region. | 414 ;; Now, #'check-coding-systems-region. |
| 415 ;; UTF-8 should certainly be able to encode these characters: | 415 ;; UTF-8 should certainly be able to encode these characters: |
| 416 (Assert (eq t (check-coding-systems-region (point-min) (point-max) | 416 (Assert (null (check-coding-systems-region (point-min) (point-max) |
| 417 '(utf-8))) | 417 '(utf-8))) |
| 418 "check #'check-coding-systems-region gives t if encoding works") | 418 "check #'check-coding-systems-region gives nil if encoding works") |
| 419 (Assert | 419 (Assert |
| 420 (equal '((iso-8859-1 257 258 259 260 261 262 263) | 420 (equal '((iso-8859-1 257 258 259 260 261 262 263) |
| 421 (windows-1252 129 130 131 132 133 134 135 136 | 421 (windows-1252 129 130 131 132 133 134 135 136 |
| 422 137 138 139 140 141 142 143 144 | 422 137 138 139 140 141 142 143 144 |
| 423 145 146 147 148 149 150 151 152 | 423 145 146 147 148 149 150 151 152 |