Mercurial > hg > xemacs-beta
comparison tests/automated/mule-tests.el @ 3472:43b4a54fbf66
[xemacs-hg @ 2006-06-24 14:30:36 by stephent]
Silence commands that set marks etc in test suite.
<87wtb67hm2.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Sat, 24 Jun 2006 14:30:39 +0000 |
| parents | d1754e7f0cea |
| children | d6a215ad08b8 |
comparison
equal
deleted
inserted
replaced
| 3471:3b1f8220a65e | 3472:43b4a54fbf66 |
|---|---|
| 338 (if (string-match "darwin" system-configuration) | 338 (if (string-match "darwin" system-configuration) |
| 339 'utf-8 | 339 'utf-8 |
| 340 'iso-8859-2)) | 340 'iso-8859-2)) |
| 341 ) | 341 ) |
| 342 ;; This is how you suppress output from `message', called by `write-region' | 342 ;; This is how you suppress output from `message', called by `write-region' |
| 343 (flet ((append-message (&rest args) ())) | 343 (Assert (not (equal name1 name2))) |
| 344 (Assert (not (equal name1 name2))) | 344 (Assert (not (file-exists-p name1))) |
| 345 (Assert (not (file-exists-p name1))) | 345 (Silence-Message |
| 346 (write-region (point-min) (point-max) name1) | 346 (write-region (point-min) (point-max) name1)) |
| 347 (Assert (file-exists-p name1)) | 347 (Assert (file-exists-p name1)) |
| 348 (when (fboundp 'make-symbolic-link) | 348 (when (fboundp 'make-symbolic-link) |
| 349 (make-symbolic-link name1 name2) | 349 (make-symbolic-link name1 name2) |
| 350 (Assert (file-exists-p name2)) | 350 (Assert (file-exists-p name2)) |
| 351 (Assert (equal (file-truename name2) name1)) | 351 (Assert (equal (file-truename name2) name1)) |
| 352 (Assert (equal (file-truename name1) name1))) | 352 (Assert (equal (file-truename name1) name1))) |
| 353 | 353 |
| 354 (ignore-file-errors (delete-file name1) (delete-file name2)))) | 354 (ignore-file-errors (delete-file name1) (delete-file name2))) |
| 355 | 355 |
| 356 ;; Add many more file operation tests here... | 356 ;; Add many more file operation tests here... |
| 357 | 357 |
| 358 ;;--------------------------------------------------------------- | 358 ;;--------------------------------------------------------------- |
| 359 ;; Test Unicode-related functions | 359 ;; Test Unicode-related functions |