Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 4957:db2db229ee82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 28 Jan 2010 02:48:45 -0600
parents 8b230c53075b 29fb3baea939
children ae4ddcdf30c0
comparison
equal deleted inserted replaced
4956:3461165c79be 4957:db2db229ee82
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 (let ((expected 554 (let ((sorted-charsets-in-HELLO
555 '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 555 '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312
556 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 556 cyrillic-iso8859-5 ethiopic greek-iso8859-7
557 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 557 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212
558 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 558 katakana-jisx0201 korean-ksc5601 latin-iso8859-1
559 thai-xtis vietnamese-viscii-lower))) 559 latin-iso8859-2 vietnamese-viscii-lower)))
560 (Assert-equal 560 (Assert-equal
561 ;; The sort is to make the algorithm of charsets-in-region 561 ;; The sort is to make the algorithm of charsets-in-region
562 ;; irrelevant. 562 ;; irrelevant.
563 (sort (charsets-in-region (point-min) (point-max)) 563 (sort (charsets-in-region (point-min) (point-max))
564 #'string<) expected) 564 #'string<)
565 sorted-charsets-in-HELLO)
565 (Assert-equal 566 (Assert-equal
566 (sort (charsets-in-string (buffer-substring (point-min) (point-max))) 567 (sort (charsets-in-string (buffer-substring (point-min)
567 #'string<) expected))) 568 (point-max)))
569 #'string<)
570 sorted-charsets-in-HELLO)))
568 571
569 ;;--------------------------------------------------------------- 572 ;;---------------------------------------------------------------
570 ;; Language environments, and whether the specified values are sane. 573 ;; Language environments, and whether the specified values are sane.
571 ;;--------------------------------------------------------------- 574 ;;---------------------------------------------------------------
572 (loop 575 (loop