# HG changeset patch
# User stephent
# Date 1045755582 0
# Node ID 59e2c5b1e38fb9cb1079d3a51483bdeae7603d44
# Parent  70921960b9806f0689f1573226633bf66ae27169
[xemacs-hg @ 2003-02-20 15:39:38 by stephent]
fix charsets-in-region test <8765rfezec.fsf@tleepslib.sk.tsukuba.ac.jp>

diff -r 70921960b980 -r 59e2c5b1e38f tests/ChangeLog
--- a/tests/ChangeLog	Thu Feb 20 08:19:44 2003 +0000
+++ b/tests/ChangeLog	Thu Feb 20 15:39:42 2003 +0000
@@ -1,3 +1,9 @@
+2003-02-21  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/mule-tests.el (charsets-in-string):
+	(charsets-in-string):
+	Not all that glitters is gold, nor eq that which is equal.  D'oh.
+
 2003-02-16  Steve Youngs  <youngs@xemacs.org>
 
 	* XEmacs 21.5.11 "cabbage" is released.
diff -r 70921960b980 -r 59e2c5b1e38f tests/automated/mule-tests.el
--- a/tests/automated/mule-tests.el	Thu Feb 20 08:19:44 2003 +0000
+++ b/tests/automated/mule-tests.el	Thu Feb 20 15:39:42 2003 +0000
@@ -336,18 +336,19 @@
     ;; #### rewrite robustly, both assume that the tested implementation
     ;; uses the same algorithm as was used by the version current at time
     ;; this test was written
-    (Assert (eq (charsets-in-region (point-min) (point-max))
-		'(korean-ksc5601 chinese-big5-1 chinese-gb2312
-		  japanese-jisx0212 katakana-jisx0201 japanese-jisx0208
-		  vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5
-		  hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1
-		  latin-iso8859-2 arabic-2-column arabic-1-column
-		  ethiopic ascii)))
-    (Assert (eq (charsets-in-string (buffer-substring (point-min) (point-max)))
-		'(korean-ksc5601 chinese-big5-1 chinese-gb2312
-		  japanese-jisx0212 katakana-jisx0201 japanese-jisx0208
-		  vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5
-		  hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1
-		  latin-iso8859-2 arabic-2-column arabic-1-column
-		  ethiopic ascii))))
+    (Assert (equal (charsets-in-region (point-min) (point-max))
+		   '(korean-ksc5601 chinese-big5-1 chinese-gb2312
+		     japanese-jisx0212 katakana-jisx0201 japanese-jisx0208
+		     vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5
+		     hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1
+		     latin-iso8859-2 arabic-2-column arabic-1-column
+		     ethiopic ascii)))
+    (Assert (equal (charsets-in-string (buffer-substring (point-min)
+							 (point-max)))
+		   '(korean-ksc5601 chinese-big5-1 chinese-gb2312
+		     japanese-jisx0212 katakana-jisx0201 japanese-jisx0208
+		     vietnamese-viscii-lower thai-xtis cyrillic-iso8859-5
+		     hebrew-iso8859-8 greek-iso8859-7 latin-iso8859-1
+		     latin-iso8859-2 arabic-2-column arabic-1-column
+		     ethiopic ascii))))
   )