Mercurial > hg > xemacs-beta
comparison tests/automated/mule-tests.el @ 1195:dff007bd492b
[xemacs-hg @ 2003-01-09 12:49:36 by stephent]
unit test cases <873co2wkua.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Thu, 09 Jan 2003 12:49:43 +0000 |
| parents | 708faa3b4cb1 |
| children | 59e2c5b1e38f |
comparison
equal
deleted
inserted
replaced
| 1194:b28cb5c230a2 | 1195:dff007bd492b |
|---|---|
| 325 (set-unicode-conversion scaron code) | 325 (set-unicode-conversion scaron code) |
| 326 (Assert (eq code (char-to-unicode scaron))) | 326 (Assert (eq code (char-to-unicode scaron))) |
| 327 (Assert (eq scaron (unicode-to-char code '(latin-iso8859-2)))))) | 327 (Assert (eq scaron (unicode-to-char code '(latin-iso8859-2)))))) |
| 328 | 328 |
| 329 (Check-Error wrong-type-argument (set-unicode-conversion scaron -10000))) | 329 (Check-Error wrong-type-argument (set-unicode-conversion scaron -10000))) |
| 330 | |
| 331 ;;--------------------------------------------------------------- | |
| 332 ;; Test charset-in-* functions | |
| 333 ;;--------------------------------------------------------------- | |
| 334 (with-temp-buffer | |
| 335 (insert-file-contents (locate-data-file "HELLO")) | |
| 336 ;; #### rewrite robustly, both assume that the tested implementation | |
| 337 ;; uses the same algorithm as was used by the version current at time | |
| 338 ;; this test was written | |
| 339 (Assert (eq (charsets-in-region (point-min) (point-max)) | |
| 340 '(korean-ksc5601 chinese-big5-1 chinese-gb2312 | |
| 341 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208 | |
| 342 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5 | |
| 343 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1 | |
| 344 latin-iso8859-2 arabic-2-column arabic-1-column | |
| 345 ethiopic ascii))) | |
| 346 (Assert (eq (charsets-in-string (buffer-substring (point-min) (point-max))) | |
| 347 '(korean-ksc5601 chinese-big5-1 chinese-gb2312 | |
| 348 japanese-jisx0212 katakana-jisx0201 japanese-jisx0208 | |
| 349 vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5 | |
| 350 hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1 | |
| 351 latin-iso8859-2 arabic-2-column arabic-1-column | |
| 352 ethiopic ascii)))) | |
| 330 ) | 353 ) |