Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 1316:59e2c5b1e38f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-02-20 15:39:38 by stephent] fix charsets-in-region test <8765rfezec.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 20 Feb 2003 15:39:42 +0000
parents dff007bd492b
children ca02e61c9829
comparison
equal deleted inserted replaced
1315:70921960b980 1316:59e2c5b1e38f
334 (with-temp-buffer 334 (with-temp-buffer
335 (insert-file-contents (locate-data-file "HELLO")) 335 (insert-file-contents (locate-data-file "HELLO"))
336 ;; #### rewrite robustly, both assume that the tested implementation 336 ;; #### rewrite robustly, both assume that the tested implementation
337 ;; uses the same algorithm as was used by the version current at time 337 ;; uses the same algorithm as was used by the version current at time
338 ;; this test was written 338 ;; this test was written
339 (Assert (eq (charsets-in-region (point-min) (point-max)) 339 (Assert (equal (charsets-in-region (point-min) (point-max))
340 '(korean-ksc5601 chinese-big5-1 chinese-gb2312 340 '(korean-ksc5601 chinese-big5-1 chinese-gb2312
341 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208 341 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208
342 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5 342 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5
343 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1 343 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1
344 latin-iso8859-2 arabic-2-column arabic-1-column 344 latin-iso8859-2 arabic-2-column arabic-1-column
345 ethiopic ascii))) 345 ethiopic ascii)))
346 (Assert (eq (charsets-in-string (buffer-substring (point-min) (point-max))) 346 (Assert (equal (charsets-in-string (buffer-substring (point-min)
347 '(korean-ksc5601 chinese-big5-1 chinese-gb2312 347 (point-max)))
348 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208 348 '(korean-ksc5601 chinese-big5-1 chinese-gb2312
349 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5 349 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208
350 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1 350 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5
351 latin-iso8859-2 arabic-2-column arabic-1-column 351 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1
352 ethiopic ascii)))) 352 latin-iso8859-2 arabic-2-column arabic-1-column
353 ethiopic ascii))))
353 ) 354 )