* 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]

3 files changed, 17 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 0dc1c4a..f837eeb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2003-03-26  Don Porter  <dgp@users.sourceforge.net>
 
+	* 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]
+
 	* unix/dltest/pkg?.c:  Changed all Tcl_InitStubs calls to pass
 	argument exact = 0, so that rebuilds are not required when Tcl
 	bumps to a new version.  [Bug 701926]
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
diff --git a/tests/msgcat.test b/tests/msgcat.test
index 2ea01cd..96a0ace 100644
--- a/tests/msgcat.test
+++ b/tests/msgcat.test
@@ -12,7 +12,7 @@
 # Note that after running these tests, entries will be left behind in the
 # message catalogs for locales foo, foo_BAR, and foo_BAR_baz.
 #
-# RCS: @(#) $Id: msgcat.test,v 1.11 2002/06/17 05:37:39 dgp Exp $
+# RCS: @(#) $Id: msgcat.test,v 1.12 2003/03/26 22:55:44 dgp Exp $
 
 package require Tcl 8.2
 if {[catch {package require tcltest 2}]} {
@@ -175,7 +175,7 @@ namespace eval ::msgcat::test {
 	namespace eval :: ::msgcat::mcset foo_BAR text3
     } {text3}
 
-    test msgcat-2.2 {mcset, namespace overlap} {
+    test msgcat-2.2.1 {mcset, namespace overlap} {
 	namespace eval baz {::msgcat::mcset  foo_BAR con1 con1baz}
     } {con1baz}