Mercurial > hg > xemacs-beta
comparison tests/automated/mule-tests.el @ 3952:3584cb2c07db
[xemacs-hg @ 2007-05-13 11:11:28 by aidan]
Support non-BMP UTF-16.
| author | aidan |
|---|---|
| date | Sun, 13 May 2007 11:11:38 +0000 |
| parents | adecfd791c9b |
| children | 949ac151a10d |
comparison
equal
deleted
inserted
replaced
| 3951:20ac78313587 | 3952:3584cb2c07db |
|---|---|
| 339 ;; seems to know that file-name-coding-system is definitely utf-8 | 339 ;; seems to know that file-name-coding-system is definitely utf-8 |
| 340 (if (string-match "darwin" system-configuration) | 340 (if (string-match "darwin" system-configuration) |
| 341 'utf-8 | 341 'utf-8 |
| 342 'iso-8859-2)) | 342 'iso-8859-2)) |
| 343 ) | 343 ) |
| 344 ;; This is how you suppress output from `message', called by `write-region' | |
| 345 (Assert (not (equal name1 name2))) | 344 (Assert (not (equal name1 name2))) |
| 346 (Assert (not (file-exists-p name1))) | 345 (Assert (not (file-exists-p name1))) |
| 346 ;; This is how you suppress output from `message', called by `write-region' | |
| 347 (Silence-Message | 347 (Silence-Message |
| 348 (write-region (point-min) (point-max) name1)) | 348 (write-region (point-min) (point-max) name1)) |
| 349 (Assert (file-exists-p name1)) | 349 (Assert (file-exists-p name1)) |
| 350 (when (fboundp 'make-symbolic-link) | 350 (when (fboundp 'make-symbolic-link) |
| 351 (make-symbolic-link name1 name2) | 351 (make-symbolic-link name1 name2) |
| 399 (Assert (equal (concat "\033%G" utf-8-char) | 399 (Assert (equal (concat "\033%G" utf-8-char) |
| 400 (encode-coding-string xemacs-character 'escape-quoted))) | 400 (encode-coding-string xemacs-character 'escape-quoted))) |
| 401 (Assert (equal (concat "\033%G" utf-8-char) | 401 (Assert (equal (concat "\033%G" utf-8-char) |
| 402 (encode-coding-string xemacs-character 'ctext)))))) | 402 (encode-coding-string xemacs-character 'ctext)))))) |
| 403 | 403 |
| 404 (loop | |
| 405 for (code-point encoded) | |
| 406 in '((#x10000 "\xd8\x00\xdc\x00") | |
| 407 (#x10FFFD "\xdb\xff\xdf\xfd")) | |
| 408 do (Assert (equal (encode-coding-string | |
| 409 (decode-char 'ucs code-point) 'utf-16) | |
| 410 encoded))) | |
| 411 | |
| 404 ;;--------------------------------------------------------------- | 412 ;;--------------------------------------------------------------- |
| 405 ;; Regression test for a couple of CCL-related bugs. | 413 ;; Regression test for a couple of CCL-related bugs. |
| 406 ;;--------------------------------------------------------------- | 414 ;;--------------------------------------------------------------- |
| 407 | 415 |
| 408 (let ((ccl-vector [0 0 0 0 0 0 0 0 0])) | 416 (let ((ccl-vector [0 0 0 0 0 0 0 0 0])) |