Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/tests/automated/mule-tests.el Sat Jun 24 13:50:23 2006 +0000 +++ b/tests/automated/mule-tests.el Sat Jun 24 14:30:39 2006 +0000 @@ -340,18 +340,18 @@ 'iso-8859-2)) ) ;; This is how you suppress output from `message', called by `write-region' - (flet ((append-message (&rest args) ())) - (Assert (not (equal name1 name2))) - (Assert (not (file-exists-p name1))) - (write-region (point-min) (point-max) name1) - (Assert (file-exists-p name1)) - (when (fboundp 'make-symbolic-link) - (make-symbolic-link name1 name2) - (Assert (file-exists-p name2)) - (Assert (equal (file-truename name2) name1)) - (Assert (equal (file-truename name1) name1))) + (Assert (not (equal name1 name2))) + (Assert (not (file-exists-p name1))) + (Silence-Message + (write-region (point-min) (point-max) name1)) + (Assert (file-exists-p name1)) + (when (fboundp 'make-symbolic-link) + (make-symbolic-link name1 name2) + (Assert (file-exists-p name2)) + (Assert (equal (file-truename name2) name1)) + (Assert (equal (file-truename name1) name1))) - (ignore-file-errors (delete-file name1) (delete-file name2)))) + (ignore-file-errors (delete-file name1) (delete-file name2))) ;; Add many more file operation tests here...