diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-03-26 22:55:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-03-26 22:55:35 (GMT) |
| commit | de3b86108fb5bc2c5e082737c35ca6a8652cdd4a (patch) | |
| tree | 6787d74609cb0d7376a050ee422776a31eec2b09 /library/tcltest | |
| parent | d4400715593b55eb5389eefc554c1ff293bb0c5f (diff) | |
| download | tcl-de3b86108fb5bc2c5e082737c35ca6a8652cdd4a.zip tcl-de3b86108fb5bc2c5e082737c35ca6a8652cdd4a.tar.gz tcl-de3b86108fb5bc2c5e082737c35ca6a8652cdd4a.tar.bz2 | |
* library/tcltest/tcltest.tcl: Added reporting during
[configure -debug 1] operations to warn about multiple uses of
the same test name. [FR 576693]
* tests/msgcat.test (msgcat-2.2.1): changed test name to avoid
duplication. [Bug 710356]
Diffstat (limited to 'library/tcltest')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 3131104..125ed67 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.79 2003/03/19 21:57:57 dgp Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.80 2003/03/26 22:55:41 dgp Exp $ package require Tcl 8.3 ;# uses [glob -directory] namespace eval tcltest { @@ -1842,6 +1842,13 @@ proc tcltest::test {name description args} { variable testLevel variable coreModTime DebugPuts 3 "test $name $args" + DebugDo 1 { + variable TestNames + catch { + puts "test name '$name' re-used; prior use in $TestNames($name)" + } + set TestNames($name) [info script] + } FillFilesExisted incr testLevel |