User: vins Date: 05/12/08 02:31:24 Branch: xemacs/src release-21-4 xemacs/tests release-21-4 xemacs/tests/automated release-21-4 Modified: xemacs/tests/automated mule-tests.el Log: Added an additional mule-test from Aidan Kehoe. Revision Changes Path 1.290.2.103 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.290.2.102 retrieving revision 1.290.2.103 diff -u -p -r1.290.2.102 -r1.290.2.103 --- ChangeLog 2005/12/07 01:16:59 1.290.2.102 +++ ChangeLog 2005/12/08 01:31:12 1.290.2.103 ＠＠ -1,3 +1,8 ＠＠ +2005-05-10 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * callproc.c: #include sysdir.h, so that any appropriate Mule + magic happens with the chdir() call when calling a subprocess. + 2005-12-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule-ccl.c (POSSIBLE_LEADING_BYTE_P): Add. 1.37.2.6 +1 -0 XEmacs/xemacs/src/Attic/callproc.c Index: callproc.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/Attic/callproc.c,v retrieving revision 1.37.2.5 retrieving revision 1.37.2.6 diff -u -p -r1.37.2.5 -r1.37.2.6 --- callproc.c 2005/11/27 01:45:51 1.37.2.5 +++ callproc.c 2005/12/08 01:31:15 1.37.2.6 ＠＠ -47,6 +47,7 ＠＠ Boston, MA 02111-1307, USA. */ #include "systime.h" #include "sysproc.h" +#include "sysdir.h" #include "sysfile.h" /* Always include after sysproc.h */ #include "sysdir.h" #include "syssignal.h" /* Always include before systty.h */ 1.2.2.42 +6 -0 XEmacs/xemacs/tests/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v retrieving revision 1.2.2.41 retrieving revision 1.2.2.42 diff -u -p -r1.2.2.41 -r1.2.2.42 --- ChangeLog 2005/12/03 18:56:18 1.2.2.41 +++ ChangeLog 2005/12/08 01:31:22 1.2.2.42 ＠＠ -1,3 +1,9 ＠＠ +2005-05-10 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * automated/mule-tests.el: Test that starting a process in a + non-Latin-1 directory preserves the current directory, which it + didn't, previous to 21.4.17 + 2005-12-03 Vin Shelton <acs(a)xemacs.org&gt; * XEmacs 21.4.18 is released 1.2.2.4 +21 -0 XEmacs/xemacs/tests/automated/mule-tests.el Index: mule-tests.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/automated/mule-tests.el,v retrieving revision 1.2.2.3 retrieving revision 1.2.2.4 diff -u -p -r1.2.2.3 -r1.2.2.4 --- mule-tests.el 2005/01/16 02:39:17 1.2.2.3 +++ mule-tests.el 2005/12/08 01:31:23 1.2.2.4 ＠＠ -320,6 +320,27 ＠＠ the Assert macro checks for correctness. (Assert (equal (file-truename name1) name1))) (ignore-file-errors (delete-file name1) (delete-file name2)))) + ;; Is a non-Latin-1 directory name preserved for call-process? + (when (and + ;; The bug should manifest itself on Windows, but I've no access + ;; to a Windows machine to verify that any test works. + (eq directory-sep-char ?/) + ;; file-name-coding-system on Darwin is _always_ UTF-8--the system + ;; enforces this--which coding system we don't have available in + ;; 21.4, outside of packages. I could jump through lots of hoops to + ;; have the test work anyway, but I'm not really into that right + ;; now. + (not (eq system-type 'darwin))) + (let ((process-coding-system-alist '((".*" . iso-8859-1))) + (file-name-coding-system 'iso-8859-1) + default-directory) + (make-directory (concat (temp-directory) "/\260\354")) + (setq file-name-coding-system 'euc-jp) + (setq default-directory (format "%s/%c/" (temp-directory) + (make-char 'japanese-jisx0208 48 108))) + (Assert (equal (shell-command-to-string "pwd") + (format "%s/\260\354\n" (temp-directory)))) + (delete-directory default-directory))) ;; Add many more file operation tests here...