Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 4948:8b230c53075b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix some tests in `make check', also add our own file-tests -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-01-25 Ben Wing <ben@xemacs.org> * mule/cyrillic.el (koi8-c): Fix bug in #83 mapping. * mule/vietnamese.el (viscii): Fix bug in #A6 mapping. tests/ChangeLog addition: 2010-01-25 Ben Wing <ben@xemacs.org> * automated/file-tests.el: New file. * automated/mule-tests.el (featurep): * automated/test-harness.el (test-harness-from-buffer): * automated/test-harness.el (batch-test-emacs):
author Ben Wing <ben@xemacs.org>
date Mon, 25 Jan 2010 03:03:49 -0600
parents 1f3ed6288996
children db2db229ee82
comparison
equal deleted inserted replaced
4947:4faad22a9fe5 4948:8b230c53075b
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 ((expected
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 hebrew-iso8859-8
557 (sort (charsets-in-region (point-min) (point-max)) 557 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201
558 #'string<) 558 korean-ksc5601 latin-iso8859-1 latin-iso8859-2
559 '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 559 thai-xtis 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<) expected)
565 (sort (charsets-in-string (buffer-substring (point-min) 565 (Assert-equal
566 (point-max))) 566 (sort (charsets-in-string (buffer-substring (point-min) (point-max)))
567 #'string<) 567 #'string<) expected)))
568 '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5
569 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208
570 japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201
571 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis
572 vietnamese-viscii-lower)))
573 568
574 ;;--------------------------------------------------------------- 569 ;;---------------------------------------------------------------
575 ;; Language environments, and whether the specified values are sane. 570 ;; Language environments, and whether the specified values are sane.
576 ;;--------------------------------------------------------------- 571 ;;---------------------------------------------------------------
577 (loop 572 (loop