Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 3927:cd487eafbc76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-04-29 13:19:55 by aidan] Make the charsets-in-region algorithm irrelevant, mule-tests.el.
author aidan
date Sun, 29 Apr 2007 13:20:00 +0000
parents 58f19b254a23
children adecfd791c9b
comparison
equal deleted inserted replaced
3926:74b10360eef9 3927:cd487eafbc76
444 ;;--------------------------------------------------------------- 444 ;;---------------------------------------------------------------
445 ;; Test charset-in-* functions 445 ;; Test charset-in-* functions
446 ;;--------------------------------------------------------------- 446 ;;---------------------------------------------------------------
447 (with-temp-buffer 447 (with-temp-buffer
448 (insert-file-contents (locate-data-file "HELLO")) 448 (insert-file-contents (locate-data-file "HELLO"))
449 ;; #### rewrite robustly, both assume that the tested implementation 449 (Assert (equal
450 ;; uses the same algorithm as was used by the version current at time 450 ;; The sort is to make the algorithm of charsets-in-region
451 ;; this test was written 451 ;; irrelevant.
452 (Assert (equal (charsets-in-region (point-min) (point-max)) 452 (sort (charsets-in-region (point-min) (point-max))
453 '(korean-ksc5601 chinese-big5-1 chinese-gb2312 453 'string<)
454 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208 454 '(arabic-1-column arabic-2-column ascii chinese-big5-1
455 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5 455 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7
456 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1 456 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212
457 latin-iso8859-2 arabic-2-column arabic-1-column 457 katakana-jisx0201 korean-ksc5601 latin-iso8859-1
458 ethiopic ascii))) 458 latin-iso8859-2 thai-xtis vietnamese-viscii-lower)))
459 (Assert (equal (charsets-in-string (buffer-substring (point-min) 459 (Assert (equal
460 (sort (charsets-in-string (buffer-substring (point-min)
460 (point-max))) 461 (point-max)))
461 '(korean-ksc5601 chinese-big5-1 chinese-gb2312 462 'string<)
462 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208 463 '(arabic-1-column arabic-2-column ascii chinese-big5-1
463 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5 464 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7
464 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1 465 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212
465 latin-iso8859-2 arabic-2-column arabic-1-column 466 katakana-jisx0201 korean-ksc5601 latin-iso8859-1
466 ethiopic ascii)))) 467 latin-iso8859-2 thai-xtis vietnamese-viscii-lower))))
467 ) 468 )