Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 5530:17bcc2aab111

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5529:3d1f8f0e690f 5530:17bcc2aab111
570 570
571 ;;--------------------------------------------------------------- 571 ;;---------------------------------------------------------------
572 ;; Test charset-in-* functions 572 ;; Test charset-in-* functions
573 ;;--------------------------------------------------------------- 573 ;;---------------------------------------------------------------
574 (with-temp-buffer 574 (with-temp-buffer
575 (insert-file-contents (locate-data-file "HELLO"))
576 (let ((sorted-charsets-in-HELLO 575 (let ((sorted-charsets-in-HELLO
577 '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 576 '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312
578 cyrillic-iso8859-5 ethiopic greek-iso8859-7 577 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8
579 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 578 indian-is13194 ipa japanese-jisx0208 japanese-jisx0212
580 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 579 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1
581 latin-iso8859-2 vietnamese-viscii-lower))) 580 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620
581 tibetan vietnamese-viscii-lower))
582 (coding-system-for-read 'iso-2022-7))
583 (insert-file-contents (locate-data-file "HELLO"))
582 (Assert (equal 584 (Assert (equal
583 ;; The sort is to make the algorithm of charsets-in-region 585 ;; The sort is to make the algorithm of charsets-in-region
584 ;; irrelevant. 586 ;; irrelevant.
585 (sort (charsets-in-region (point-min) (point-max)) 587 (sort (remove* "^jit-ucs-charset-" (charsets-in-region (point-min)
588 (point-max))
589 :test 'string-match :key 'symbol-name)
586 #'string<) 590 #'string<)
587 sorted-charsets-in-HELLO)) 591 sorted-charsets-in-HELLO))
588 (Assert (equal 592 (Assert (equal
589 (sort (charsets-in-string (buffer-substring (point-min) 593 (sort (remove* "^jit-ucs-charset-" (charsets-in-string
590 (point-max))) 594 (buffer-substring (point-min)
595 (point-max)))
596 :test 'string-match :key 'symbol-name)
591 #'string<) 597 #'string<)
592 sorted-charsets-in-HELLO)))) 598 sorted-charsets-in-HELLO))))
593 599
594 ;;--------------------------------------------------------------- 600 ;;---------------------------------------------------------------
595 ;; Language environments, and whether the specified values are sane. 601 ;; Language environments, and whether the specified values are sane.