# HG changeset patch
# User Stephen J. Turnbull <stephen@xemacs.org>
# Date 1198988524 28800
# Node ID 7b628daa39d4f27558b6b0f1a43e692cc7062a15
# Parent  c9ab656691c04f41c53df820c0a83e4ee36f5177
Move debugging code to usage example.
* automated/test-harness.el (test-harness-test-compiled): Improve docstring.
* automated/weak-tests.el (test-harness-test-compiled): Remove debugging code.

diff -r c9ab656691c0 -r 7b628daa39d4 tests/ChangeLog
--- a/tests/ChangeLog	Thu Dec 27 13:22:26 2007 +0100
+++ b/tests/ChangeLog	Sat Dec 29 20:22:04 2007 -0800
@@ -1,3 +1,11 @@
+2007-12-29  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* automated/test-harness.el (test-harness-test-compiled):
+	Improve docstring.
+
+	* automated/weak-tests.el (test-harness-test-compiled):
+	Remove debugging code.
+
 2007-12-21  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* reproduce-crashes.el: Renamed from reproduce-bugs.el.  Update to-do.
diff -r c9ab656691c0 -r 7b628daa39d4 tests/automated/test-harness.el
--- a/tests/automated/test-harness.el	Thu Dec 27 13:22:26 2007 +0100
+++ b/tests/automated/test-harness.el	Sat Dec 29 20:22:04 2007 -0800
@@ -71,7 +71,17 @@
 (defvar unexpected-test-file-failures)
 
 (defvar test-harness-test-compiled nil
-  "Non-nil means the test code was compiled before execution.")
+  "Non-nil means the test code was compiled before execution.
+
+You probably should not make tests depend on compilation.
+However, it can be useful to conditionally change messages based on whether
+the code was compiled or not.  For example, the case that motivated the
+implementation of this variable:
+
+\(when test-harness-test-compiled
+  ;; this ha-a-ack depends on the failing compiled test coming last
+  \(setq test-harness-failure-tag
+	\"KNOWN BUG - fix reverted; after 2003-10-31 notify stephen\n\"))")
 
 (defvar test-harness-verbose
   (and (not noninteractive) (> (device-baud-rate) search-slow-speed))
diff -r c9ab656691c0 -r 7b628daa39d4 tests/automated/weak-tests.el
--- a/tests/automated/weak-tests.el	Thu Dec 27 13:22:26 2007 +0100
+++ b/tests/automated/weak-tests.el	Sat Dec 29 20:22:04 2007 -0800
@@ -36,11 +36,6 @@
      (push (file-name-directory load-file-name) load-path)
      (require 'test-harness))))
 
-(when test-harness-test-compiled
-  ;; this ha-a-ack depends on the compiled test coming last
-  (setq test-harness-failure-tag
-	"KNOWN BUG - fix reverted; after 2003-10-31 bitch at stephen\n"))
-
 (garbage-collect)
 
 ;; tests for weak-boxes