--- a/tests/ChangeLog	Mon Apr 14 21:52:31 2003 +0000
+++ b/tests/ChangeLog	Tue Apr 15 15:56:58 2003 +0000
@@ -1,3 +1,20 @@
+2003-04-15  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/test-harness.el (test-harness-known-bug): Deleted.
+	(test-harness-failure-tag, test-harness-success-tag): New variables.
+	(Known-Bug-Expect-Failure): Bind them.
+	(Implementation-Incomplete-Expect-Failure): New macro. Bind *-tag.
+	(Print-Failure, Print-Pass): Use *-tag instead of literal strings.
+
+	* automated/symbol-tests.el (weak reference uniqueness): Mike sez
+	tests of garbage collector are due to incomplete descriptorization
+	of lisp types.  Tag with Implementation-Incomplete-Expect-Failure
+	if KKCC.
+
+2003-04-03  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/regexp-tests.el: Change known-bug status of Mule ranges.
+
 2003-03-21  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* automated/regexp-tests.el: Change known-bug status of "\\b".

--- a/tests/automated/regexp-tests.el	Mon Apr 14 21:52:31 2003 +0000
+++ b/tests/automated/regexp-tests.el	Tue Apr 15 15:56:58 2003 +0000
@@ -258,19 +258,17 @@
 
 ;; Character classes are broken in Mule as of 21.5.9
 ;; Added Known-Bug 2002-12-27
+;; Fixed by Daiki Ueno 2003-03-24
 (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 (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 (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))))
@@ -278,7 +276,9 @@
       (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))))
+      )
+  )
 
 ;; More stale match data tests.
 ;; Thanks to <bjacob@ca.metsci.com>.

--- a/tests/automated/symbol-tests.el	Mon Apr 14 21:52:31 2003 +0000
+++ b/tests/automated/symbol-tests.el	Tue Apr 15 15:56:58 2003 +0000
@@ -71,10 +71,17 @@
 (flet ((check-weak-list-unique (weak-list &optional reversep)
 	 "Check that elements of WEAK-LIST are referenced only there."
 	 (let ((len (length (weak-list-list weak-list))))
-	   (Assert (not (zerop len)))
-	   (garbage-collect)
-	   (Assert (eq (length (weak-list-list weak-list))
-		       (if (not reversep) 0 len))))))
+	   (if (string-match "Using the new GC algorithms."
+			     Installation-string)
+	       (Implementation-Incomplete-Expect-Failure
+		(Assert (not (zerop len)))
+		(garbage-collect)
+		(Assert (eq (length (weak-list-list weak-list))
+			    (if (not reversep) 0 len))))
+	     (Assert (not (zerop len)))
+	     (garbage-collect)
+	     (Assert (eq (length (weak-list-list weak-list))
+			 (if (not reversep) 0 len)))))))
   (let ((weak-list (make-weak-list))
 	(gc-cons-threshold most-positive-fixnum))
     ;; Symbols created with `make-symbol' and `gensym' should be fresh

--- a/tests/automated/test-harness.el	Mon Apr 14 21:52:31 2003 +0000
+++ b/tests/automated/test-harness.el	Tue Apr 15 15:56:58 2003 +0000
@@ -33,7 +33,8 @@
 ;;; Assert, Check-Error, Check-Message, and Check-Error-Message functions
 ;;; to create tests.  See `test-harness-from-buffer' below.
 ;;; Don't suppress tests just because they're due to known bugs not yet
-;;; fixed -- use the Known-Bug-Expect-Failure wrapper macro to mark them.
+;;; fixed -- use the Known-Bug-Expect-Failure and
+;;; Implementation-Incomplete-Expect-Failure wrapper macros to mark them.
 ;;; A lot of the tests we run push limits; suppress Ebola message with the
 ;;; Ignore-Ebola wrapper macro.
 ;;; 
@@ -142,23 +143,26 @@
     (with-output-to-temp-buffer "*Test-Log*"
       (princ (format "Testing %s...\n\n" filename))
 
-      (defconst test-harness-expect-bug nil)
+      (defconst test-harness-failure-tag "FAIL")
+      (defconst test-harness-success-tag "PASS")
 
       (defmacro Known-Bug-Expect-Failure (&rest body)
-	`(let ((test-harness-expect-bug t)) ,@body))
+	`(let ((test-harness-failure-tag "KNOWN BUG")
+	       (test-harness-success-tag "PASS (FAILURE EXPECTED)"))
+	  ,@body))
+    
+      (defmacro Implementation-Incomplete-Expect-Failure (&rest body)
+	`(let ((test-harness-failure-tag "IMPLEMENTATION INCOMPLETE")
+	       (test-harness-success-tag "PASS (FAILURE EXPECTED)"))
+	  ,@body))
     
       (defun Print-Failure (fmt &rest args)
-	(setq fmt (format "%s: %s"
-			  (if test-harness-expect-bug
-			      "KNOWN BUG"
-			    "FAIL")
-			  fmt))
+	(setq fmt (format "%s: %s" test-harness-failure-tag fmt))
 	(if (noninteractive) (apply #'message fmt args))
 	(princ (concat (apply #'format fmt args) "\n")))
 
       (defun Print-Pass (fmt &rest args)
-	(setq fmt (concat "PASS: " fmt))
-	;; #### should warn if expecting failure here!
+	(setq fmt (format "%s: %s" test-harness-success-tag fmt))
 	(and test-harness-verbose
 	     (princ (concat (apply #'format fmt args) "\n"))))