Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 4495:c95c06ee1e9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct a test failure now the XEmacs-specific Arabic charsets are gone. etc/ChangeLog addition: 2008-08-10 Aidan Kehoe <kehoea@parhasard.net> * HELLO: Add a coding cookie, now the UTF-8 sequences prevent the file being recognised as ISO-2022-7 automatically. tests/ChangeLog addition: 2008-08-10 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el (featurep): Update the list of character sets in etc/HELLO to reflect that we've deleted the XEmacs-specific Arabic character sets.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 10 Aug 2008 12:15:56 +0200
parents 732b87cfabf2
children 2669b1b7e33b
comparison
equal deleted inserted replaced
4494:ea66743ff201 4495:c95c06ee1e9d
525 (Assert (equal 525 (Assert (equal
526 ;; The sort is to make the algorithm of charsets-in-region 526 ;; The sort is to make the algorithm of charsets-in-region
527 ;; irrelevant. 527 ;; irrelevant.
528 (sort (charsets-in-region (point-min) (point-max)) 528 (sort (charsets-in-region (point-min) (point-max))
529 #'string<) 529 #'string<)
530 '(arabic-1-column arabic-2-column ascii chinese-big5-1 530 '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5
531 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 531 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208
532 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 532 japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201
533 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 533 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis
534 latin-iso8859-2 thai-xtis vietnamese-viscii-lower))) 534 vietnamese-viscii-lower)))
535 (Assert (equal 535 (Assert (equal
536 (sort (charsets-in-string (buffer-substring (point-min) 536 (sort (charsets-in-string (buffer-substring (point-min)
537 (point-max))) 537 (point-max)))
538 #'string<) 538 #'string<)
539 '(arabic-1-column arabic-2-column ascii chinese-big5-1 539 '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5
540 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 540 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208
541 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 541 japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201
542 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 542 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis
543 latin-iso8859-2 thai-xtis vietnamese-viscii-lower)))) 543 vietnamese-viscii-lower))))
544 544
545 ;;--------------------------------------------------------------- 545 ;;---------------------------------------------------------------
546 ;; Language environments, and whether the specified values are sane. 546 ;; Language environments, and whether the specified values are sane.
547 ;;--------------------------------------------------------------- 547 ;;---------------------------------------------------------------
548 (loop 548 (loop