# HG changeset patch
# User stephent
# Date 1082355754 0
# Node ID ca02e61c982938e06f5eb580cbf1bff7e5f29084
# Parent  2d4ad7f2d9a85e358a8d56f108d381e0a800bd3a
[xemacs-hg @ 2004-04-19 06:22:32 by stephent]
speed up tests <87oepoxzla.fsf@tleepslib.sk.tsukuba.ac.jp>
cater to Darwin <87k70cxzdk.fsf@tleepslib.sk.tsukuba.ac.jp>

diff -r 2d4ad7f2d9a8 -r ca02e61c9829 tests/ChangeLog
--- a/tests/ChangeLog	Sun Apr 18 21:50:38 2004 +0000
+++ b/tests/ChangeLog	Mon Apr 19 06:22:34 2004 +0000
@@ -1,3 +1,11 @@
+2004-04-19  Stephen J. Turnbull  <turnbull@sk.tsukuba.ac.jp>
+
+	* automated/mule-tests.el: Inhibit GC to speed up BIG_STRING tests.
+
+2004-04-19  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/mule-tests.el: Darwin doesn't like ISO 8859/2 filenames.
+
 2004-04-05  Jerry James  <james@xemacs.org>
 
 	* automated/lisp-tests.el: Add bignum and ratio tests.
diff -r 2d4ad7f2d9a8 -r ca02e61c9829 tests/automated/mule-tests.el
--- a/tests/automated/mule-tests.el	Sun Apr 18 21:50:38 2004 +0000
+++ b/tests/automated/mule-tests.el	Mon Apr 19 06:22:34 2004 +0000
@@ -233,7 +233,7 @@
   ;; Test strings waxing and waning across the 8k BIG_STRING limit (see alloc.c)
   ;;---------------------------------------------------------------
   (defun charset-char-string (charset)
-    (let (lo hi string n)
+    (let (lo hi string n (gc-cons-threshold most-positive-fixnum))
       (if (= (charset-chars charset) 94)
 	  (setq lo 33 hi 126)
 	(setq lo 32 hi 127))
@@ -245,6 +245,7 @@
 	      (progn
 		(aset string n (make-char charset j))
 		(incf n)))
+	    (garbage-collect)
 	    string)
 	(progn
 	  (setq string (make-string (* (1+ (- hi lo)) (1+ (- hi lo))) ??))
@@ -254,6 +255,7 @@
 	      (progn
 		(aset string n (make-char charset j k))
 		(incf n))))
+	  (garbage-collect)
 	  string))))
 
   ;; The following two used to crash xemacs!
@@ -298,7 +300,13 @@
 			 latin2-string))
 	 (name1 (make-temp-name prefix))
 	 (name2 (make-temp-name prefix))
-	 (file-name-coding-system 'iso-8859-2))
+	 (file-name-coding-system
+	  ;; 'iso-8859-X doesn't work on darwin (as of "Panther" 10.3), it
+	  ;; seems to know that file-name-coding-system is definitely utf-8
+	  (if (string-match "darwin" system-configuration)
+	      'utf-8
+	    '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)))