[R21.4] Mac OS X workaround in mule-tests.el

RECOMMEND 21.4 Mac OS X doesn't accept anything but UTF-8 AFAICT, so needs to be special-cased in this test. Not for 21.5, I'm working on converting the Lispish regression tests to a common package. Having surprisingly little version-specific trouble, too, considering Martin's misgivings. Index: tests/ChangeLog =================================================================== RCS file: /Users/steve/Software/Repositories/cvs.xemacs.org/XEmacs/xemacs/tests/ChangeLog,v retrieving revision 1.2.2.37 diff -u -r1.2.2.37 ChangeLog --- ChangeLog 2004/12/06 01:08:35 1.2.2.37 +++ ChangeLog 2005/01/13 19:09:54 ＠＠ -0,0 +1,5 ＠＠ +2005-01-14 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * automated/mule-tests.el (file-system character conversion): + Improve Mac OS X compatibility. + Index: tests/automated/mule-tests.el =================================================================== RCS file: /Users/steve/Software/Repositories/cvs.xemacs.org/XEmacs/xemacs/tests/automated/mule-tests.el,v retrieving revision 1.2.2.2 diff -u -r1.2.2.2 mule-tests.el --- mule-tests.el 2004/04/20 02:56:39 1.2.2.2 +++ mule-tests.el 2005/01/13 16:26:47 ＠＠ -304,6 +304,12 ＠＠ ;; This is how you suppress output from `message', called by `write-region' (flet ((append-message (&rest args) ())) (Assert (not (equal name1 name2))) + ;; Kludge to handle Mac OS X which groks only UTF-8. + (cond ((eq system-type 'darwin) + (Check-Error-Message 'file-error "Opening output file" + (write-region (point-min) (point-max) name1)) + (require 'un-define) + (setq file-name-coding-system 'utf-8))) (Assert (not (file-exists-p name1))) (write-region (point-min) (point-max) name1) (Assert (file-exists-p name1)) -- Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Ask not how you can "do" free software business; ask what your business can "do for" free software.