Mercurial > hg > xemacs-beta

changeset 1316:59e2c5b1e38f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 70921960b980
children d9d08dc5e617
files tests/ChangeLog tests/automated/mule-tests.el
diffstat 2 files changed, 21 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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))))
   )