diff tests/automated/mule-tests.el @ 1316:59e2c5b1e38f

[xemacs-hg @ 2003-02-20 15:39:38 by stephent] fix charsets-in-region test <8765rfezec.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 20 Feb 2003 15:39:42 +0000
parents dff007bd492b
children ca02e61c9829
line wrap: on
line diff
--- 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))))
   )