Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents a86b2b5e0111
children
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
297 (name1 (make-temp-name prefix)) 297 (name1 (make-temp-name prefix))
298 (name2 (make-temp-name prefix)) 298 (name2 (make-temp-name prefix))
299 (file-name-coding-system 'iso-8859-2)) 299 (file-name-coding-system 'iso-8859-2))
300 ;; This is how you suppress output from `message', called by `write-region' 300 ;; This is how you suppress output from `message', called by `write-region'
301 (flet ((append-message (&rest args) ())) 301 (flet ((append-message (&rest args) ()))
302 (Assert (not (equal name1 name2)))
302 (Assert (not (file-exists-p name1))) 303 (Assert (not (file-exists-p name1)))
303 (write-region (point-min) (point-max) name1) 304 (write-region (point-min) (point-max) name1)
304 (Assert (file-exists-p name1)) 305 (Assert (file-exists-p name1))
305 (when (fboundp 'make-symbolic-link) 306 (when (fboundp 'make-symbolic-link)
306 (make-symbolic-link name1 name2) 307 (make-symbolic-link name1 name2)