Mercurial > hg > xemacs-beta
diff tests/automated/mule-tests.el @ 5530:17bcc2aab111
Update the GPLv3 HELLO to use the ISO-IR-196 escape sequences.
etc/ChangeLog addition:
2011-06-28 Aidan Kehoe <kehoea@parhasard.net>
* HELLO:
No longer encode various Unicode characters in GNU's specific
ad-hoc character sets, use ISO-IR-196 sequences instead.
tests/ChangeLog addition:
2011-06-28 Aidan Kehoe <kehoea@parhasard.net>
* automated/mule-tests.el:
Update the charsets-in-region test to reflect the GPLv3 HELLO
file.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 28 Jun 2011 18:34:26 +0100 |
| parents | 8d29f1c4bb98 |
| children | 071b810ceb18 |
line wrap: on
line diff
--- a/tests/automated/mule-tests.el Sat Jun 25 14:00:48 2011 +0100 +++ b/tests/automated/mule-tests.el Tue Jun 28 18:34:26 2011 +0100 @@ -572,22 +572,28 @@ ;; Test charset-in-* functions ;;--------------------------------------------------------------- (with-temp-buffer - (insert-file-contents (locate-data-file "HELLO")) (let ((sorted-charsets-in-HELLO - '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 - cyrillic-iso8859-5 ethiopic greek-iso8859-7 - hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 - katakana-jisx0201 korean-ksc5601 latin-iso8859-1 - latin-iso8859-2 vietnamese-viscii-lower))) + '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 + cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 + indian-is13194 ipa japanese-jisx0208 japanese-jisx0212 + katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 + latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 + tibetan vietnamese-viscii-lower)) + (coding-system-for-read 'iso-2022-7)) + (insert-file-contents (locate-data-file "HELLO")) (Assert (equal ;; The sort is to make the algorithm of charsets-in-region ;; irrelevant. - (sort (charsets-in-region (point-min) (point-max)) + (sort (remove* "^jit-ucs-charset-" (charsets-in-region (point-min) + (point-max)) + :test 'string-match :key 'symbol-name) #'string<) sorted-charsets-in-HELLO)) (Assert (equal - (sort (charsets-in-string (buffer-substring (point-min) - (point-max))) + (sort (remove* "^jit-ucs-charset-" (charsets-in-string + (buffer-substring (point-min) + (point-max))) + :test 'string-match :key 'symbol-name) #'string<) sorted-charsets-in-HELLO))))