Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 4884:29fb3baea939

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
4883:f730384b8ddf 4884:29fb3baea939
549 ;;--------------------------------------------------------------- 549 ;;---------------------------------------------------------------
550 ;; Test charset-in-* functions 550 ;; Test charset-in-* functions
551 ;;--------------------------------------------------------------- 551 ;;---------------------------------------------------------------
552 (with-temp-buffer 552 (with-temp-buffer
553 (insert-file-contents (locate-data-file "HELLO")) 553 (insert-file-contents (locate-data-file "HELLO"))
554 (Assert-equal 554 (let ((sorted-charsets-in-HELLO
555 ;; The sort is to make the algorithm of charsets-in-region 555 '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312
556 ;; irrelevant. 556 cyrillic-iso8859-5 ethiopic greek-iso8859-7
557 (sort (charsets-in-region (point-min) (point-max)) 557 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212
558 #'string<) 558 katakana-jisx0201 korean-ksc5601 latin-iso8859-1
559 '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 559 latin-iso8859-2 vietnamese-viscii-lower)))
560 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 560 (Assert-equal
561 japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201 561 ;; The sort is to make the algorithm of charsets-in-region
562 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis 562 ;; irrelevant.
563 vietnamese-viscii-lower)) 563 (sort (charsets-in-region (point-min) (point-max))
564 (Assert-equal 564 #'string<)
565 (sort (charsets-in-string (buffer-substring (point-min) 565 sorted-charsets-in-HELLO)
566 (point-max))) 566 (Assert-equal
567 #'string<) 567 (sort (charsets-in-string (buffer-substring (point-min)
568 '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 568 (point-max)))
569 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 569 #'string<)
570 japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201 570 sorted-charsets-in-HELLO)))
571 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis
572 vietnamese-viscii-lower)))
573 571
574 ;;--------------------------------------------------------------- 572 ;;---------------------------------------------------------------
575 ;; Language environments, and whether the specified values are sane. 573 ;; Language environments, and whether the specified values are sane.
576 ;;--------------------------------------------------------------- 574 ;;---------------------------------------------------------------
577 (loop 575 (loop