summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--library/tcltest/tcltest.tcl9
-rw-r--r--tests/msgcat.test4
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}