Mercurial > hg > xemacs-beta
diff tests/automated/mule-tests.el @ 4884:29fb3baea939
Fix the bugs necessary to resolve the trivial test failures in mule-tests.el
lisp/ChangeLog addition:
2010-01-26 Aidan Kehoe <kehoea@parhasard.net>
* mule/vietnamese.el (viscii): Correct the mapping here, #xA6 is
actually *SMALL* LETTER A WITH CIRCUMFLEX AND HOOK ABOVE.
* mule/cyrillic.el (koi8-c): Correct the mapping here, #x8C is
actually ?\u04D9. Add a case mapping for it.
tests/ChangeLog addition:
2010-01-26 Aidan Kehoe <kehoea@parhasard.net>
* automated/mule-tests.el:
Only give the list of character sets in HELLO once; correct it to
reflect its current contents and the extant character sets.
etc/ChangeLog addition:
2010-01-26 Aidan Kehoe <kehoea@parhasard.net>
* HELLO: Encode the Arabic in arabic-iso8859-6 once more; delete
the old, experimentally-encoded Thai.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 26 Jan 2010 02:22:10 +0000 |
| parents | 1f3ed6288996 |
| children | db2db229ee82 |
line wrap: on
line diff
--- a/tests/automated/mule-tests.el Sun Jan 24 19:56:31 2010 +0000 +++ b/tests/automated/mule-tests.el Tue Jan 26 02:22:10 2010 +0000 @@ -551,25 +551,23 @@ ;;--------------------------------------------------------------- (with-temp-buffer (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)) - #'string<) - '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 - ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 - japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201 - korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis - vietnamese-viscii-lower)) - (Assert-equal - (sort (charsets-in-string (buffer-substring (point-min) - (point-max))) - #'string<) - '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 - ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 - japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201 - korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis - vietnamese-viscii-lower))) + (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))) + (Assert-equal + ;; The sort is to make the algorithm of charsets-in-region + ;; irrelevant. + (sort (charsets-in-region (point-min) (point-max)) + #'string<) + sorted-charsets-in-HELLO) + (Assert-equal + (sort (charsets-in-string (buffer-substring (point-min) + (point-max))) + #'string<) + sorted-charsets-in-HELLO))) ;;--------------------------------------------------------------- ;; Language environments, and whether the specified values are sane.