* doc/tcltest.n:

        * library/tcltest/tcltest.tcl:  Changed -verbose default value to
        {body error} so that detailed information on unexpected errors in
        tests is provided by default, even after the fix for [Bug 725253]

3 files changed, 13 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index 62b57d6..a553a0a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-02-17  Don Porter	<dgp@users.sourceforge.net>
+
+	* doc/tcltest.n:
+	* library/tcltest/tcltest.tcl:	Changed -verbose default value to
+	{body error} so that detailed information on unexpected errors in
+	tests is provided by default, even after the fix for [Bug 725253]
+
 2004-02-17  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tests/unixInit.test (unixInit-7.1):
diff --git a/doc/tcltest.n b/doc/tcltest.n
index 9f18320..1feedda 100644
--- a/doc/tcltest.n
+++ b/doc/tcltest.n
@@ -8,7 +8,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: tcltest.n,v 1.41 2003/07/18 21:15:13 dgp Exp $
+'\" RCS: @(#) $Id: tcltest.n,v 1.42 2004/02/18 01:41:42 dgp Exp $
 '\" 
 .so man.macros
 .TH "tcltest" n 2.2 tcltest "Tcl Bundled Packages"
@@ -18,7 +18,7 @@
 tcltest \- Test harness support code and utilities
 .SH SYNOPSIS
 .nf
-\fBpackage require tcltest ?2.2.3?\fR
+\fBpackage require tcltest ?2.2.5?\fR
 .sp
 \fBtcltest::test \fIname description ?option value ...?\fR
 \fBtcltest::test \fIname description ?constraints? body result\fR
@@ -763,7 +763,8 @@ harness are doing.
 \fB-verbose \fIlevel\fR
 Sets the type of output verbosity desired to \fIlevel\fR,
 a list of zero or more of the elements \fBbody\fR, \fBpass\fR,
-\fBskip\fR, \fBstart\fR, and \fBerror\fR.  Default value is \fBbody\fR.
+\fBskip\fR, \fBstart\fR, and \fBerror\fR.  Default value
+is \fB{body error}\fR.
 Levels are defined as: 
 .RS
 .IP "body (b)"
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 18d55e7..ec138b9 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -16,7 +16,7 @@
 # Contributions from Don Porter, NIST, 2002.  (not subject to US copyright)
 # All rights reserved.
 #
-# RCS: @(#) $Id: tcltest.tcl,v 1.86 2004/02/04 06:15:18 dgp Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.87 2004/02/18 01:41:42 dgp Exp $
 
 package require Tcl 8.3		;# uses [glob -directory]
 namespace eval tcltest {
@@ -630,7 +630,7 @@ namespace eval tcltest {
     }
 
     # Default verbosity is to show bodies of failed tests
-    Option -verbose body {
+    Option -verbose {body error} {
 	Takes any combination of the values 'p', 's', 'b', 't' and 'e'.
 	Test suite will display all passed tests if 'p' is specified, all
 	skipped tests if 's' is specified, the bodies of failed tests if