--- a/tests/ChangeLog	Thu Dec 26 22:52:56 2002 +0000
+++ b/tests/ChangeLog	Fri Dec 27 06:15:01 2002 +0000
@@ -1,4 +1,11 @@
-2002-10-19  Stephen Turnbull  <steve@tleepslib1>
+2002-12-27  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/regexp-tests.el (Mule character class): New test
+	cases.  Based on draft patch by Daiki Ueno <daiki@xemacs.org>.
+
+	* automated/test-harness.el (Print-Pass): Comment.
+
+2002-10-19  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* automated/test-harness.el (test-harness-expect-bug): New variable.
 	(Known-Bug-Expect-Failure): New macro.

--- a/tests/automated/regexp-tests.el	Thu Dec 26 22:52:56 2002 +0000
+++ b/tests/automated/regexp-tests.el	Fri Dec 27 06:15:01 2002 +0000
@@ -221,7 +221,7 @@
   (insert "ab")
   (goto-char (point-min))
   (re-search-forward "\\(a\\)")
-  ;; test the whole-match data, too -- one try scotched that, too!
+  ;; test the whole-match data, too -- one attempted fix scotched that, too!
   (Assert (string= (match-string 0) "a"))
   (Assert (string= (match-string 1) "a"))
   (re-search-forward "b")
@@ -249,8 +249,33 @@
 (Assert (not (string-match "\\> " " ")))
 (Assert (not (string-match "a\\<" "a")))
 (Assert (not (string-match "\\>a" "a")))
+;; Added Known-Bug 2002-09-09
 (Known-Bug-Expect-Failure
  (Assert (not (string-match "\\b" "")))
  (Assert (not (string-match "\\b" " ")))
  (Assert (not (string-match " \\b" " ")))
  (Assert (not (string-match "\\b " " "))))
+
+;; Character classes are broken in Mule as of 21.5.9
+;; Added Known-Bug 2002-12-27
+(if (featurep 'mule)
+    ;; note: (int-to-char 65) => ?A
+    (let ((ch0 (make-char 'japanese-jisx0208 52 65))
+	  (ch1 (make-char 'japanese-jisx0208 51 65)))
+      (Assert (not (string-match "A" (string ch0))))
+      (Assert (not (string-match "[A]" (string ch0))))
+      (Known-Bug-Expect-Failure
+       (Assert (eq (string-match "[^A]" (string ch0)) 0)))
+      (Assert (not (string-match "@A" (string ?@ ch0))))
+      (Known-Bug-Expect-Failure
+       (Assert (not (string-match "@[A]" (string ?@ ch0)))))
+      (Known-Bug-Expect-Failure
+       (Assert (eq (string-match "@[^A]" (string ?@ ch0)) 0)))
+      (Assert (not (string-match "@?A" (string ?@ ch0))))
+      (Assert (not (string-match "A" (string ch1))))
+      (Assert (not (string-match "[A]" (string ch1))))
+      (Assert (eq (string-match "[^A]" (string ch1)) 0))
+      (Assert (not (string-match "@A" (string ?@ ch1))))
+      (Assert (not (string-match "@[A]" (string ?@ ch1))))
+      (Assert (eq (string-match "@[^A]" (string ?@ ch1)) 0))
+      (Assert (not (string-match "@?A" (string ?@ ch1))))))

--- a/tests/automated/test-harness.el	Thu Dec 26 22:52:56 2002 +0000
+++ b/tests/automated/test-harness.el	Fri Dec 27 06:15:01 2002 +0000
@@ -158,6 +158,7 @@
 
       (defun Print-Pass (fmt &rest args)
 	(setq fmt (concat "PASS: " fmt))
+	;; #### should warn if expecting failure here!
 	(and test-harness-verbose
 	     (princ (concat (apply #'format fmt args) "\n"))))