From 5ec6851b268257d54b2008a459be975f69b9cda3 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 18 Feb 2004 01:43:49 +0000 Subject: * 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] --- ChangeLog | 7 +++++++ doc/tcltest.n | 7 ++++--- library/tcltest/tcltest.tcl | 4 ++-- 3 files changed, 13 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 53698f0..05fc873 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2004-02-17 Don Porter + + * 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 * generic/tclIOUtil.c: backport of rewrite of generic file diff --git a/doc/tcltest.n b/doc/tcltest.n index f6067ee..b019def 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.38.2.3 2003/07/18 21:01:32 dgp Exp $ +'\" RCS: @(#) $Id: tcltest.n,v 1.38.2.4 2004/02/18 01:43:49 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 db4f8fb..b5e2eda 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.78.2.7 2004/02/04 06:14:50 dgp Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.78.2.8 2004/02/18 01:43:49 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 -- cgit v0.12