* tests/reg.test: Corrected duplicate test names.

        * tests/resource.test:  [Bugs 710370, 710358]
        * tests/dict.test:

        * tests/dict.test:      Updated [package require tcltest] lines to
        * tests/fileSystem.test:        indiciate that these test files
        * tests/lrepeat.test:   use features of tcltest 2.  [Bug 706114]
        * tests/notify.test:
        * tests/parseExpr.test:
        * tests/unixNotfy.test:
        * tests/winDde.test:

10 files changed, 33 insertions, 19 deletions

diff --git a/ChangeLog b/ChangeLog
index 3846f76..9914b77 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2003-10-06  Don Porter  <dgp@users.sourceforge.net>
+
+	* tests/reg.test:	Corrected duplicate test names.
+	* tests/resource.test:	[Bugs 710370, 710358]
+	* tests/dict.test:
+
+	* tests/dict.test:	Updated [package require tcltest] lines to
+	* tests/fileSystem.test:	indiciate that these test files
+	* tests/lrepeat.test:	use features of tcltest 2.  [Bug 706114]
+	* tests/notify.test:
+	* tests/parseExpr.test:
+	* tests/unixNotfy.test:
+	* tests/winDde.test:
+
 2003-10-04  Miguel Sofer <msofer@users.sf.net>
 
 	* generic/tclExecute.c (TEBC):
diff --git a/tests/dict.test b/tests/dict.test
index f9c5c5a..e4d5994 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -9,10 +9,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: dict.test,v 1.3 2003/07/24 16:05:24 dgp Exp $
+# RCS: @(#) $Id: dict.test,v 1.4 2003/10/06 14:32:22 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
@@ -318,7 +318,7 @@ test dict-12.3 {dict lappend command} {
     set dictv {a a}
     dict lappend dictv a b c
 } {a {a b c}}
-test dict-12.2 {dict lappend command} {
+test dict-12.2.1 {dict lappend command} {
     set dictv [dict create a [string index =a= 1]]
     dict lappend dictv a b
 } {a {a b}}
@@ -365,7 +365,7 @@ test dict-13.3 {dict append command} {
     set dictv {a a}
     dict append dictv a b c
 } {a abc}
-test dict-13.2 {dict append command} {
+test dict-13.2.1 {dict append command} {
     set dictv [dict create a [string index =a= 1]]
     dict append dictv a b
 } {a ab}
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 08d4a88..ad749ce 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
-package require tcltest
+package require tcltest 2
 namespace eval ::tcl::test::fileSystem {
 
     catch {
diff --git a/tests/lrepeat.test b/tests/lrepeat.test
index 5478d7b..f6888b1 100644
--- a/tests/lrepeat.test
+++ b/tests/lrepeat.test
@@ -9,10 +9,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: lrepeat.test,v 1.1 2003/08/11 13:26:14 dkf Exp $
+# RCS: @(#) $Id: lrepeat.test,v 1.2 2003/10/06 14:32:22 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
diff --git a/tests/notify.test b/tests/notify.test
index db2a60d..0d80132 100755
--- a/tests/notify.test
+++ b/tests/notify.test
@@ -13,10 +13,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: notify.test,v 1.2 2003/02/17 17:23:57 kennykb Exp $
+# RCS: @(#) $Id: notify.test,v 1.3 2003/10/06 14:32:22 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
diff --git a/tests/parseExpr.test b/tests/parseExpr.test
index 7b87b85..b5db5e5 100644
--- a/tests/parseExpr.test
+++ b/tests/parseExpr.test
@@ -8,10 +8,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: parseExpr.test,v 1.10 2003/02/16 01:36:32 msofer Exp $
+# RCS: @(#) $Id: parseExpr.test,v 1.11 2003/10/06 14:32:22 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
diff --git a/tests/reg.test b/tests/reg.test
index 1d1c8aa..a8bd678 100644
--- a/tests/reg.test
+++ b/tests/reg.test
@@ -9,7 +9,7 @@
 #
 # Copyright (c) 1998, 1999 Henry Spencer.  All rights reserved.
 #
-# RCS: @(#) $Id: reg.test,v 1.17 2003/04/11 16:00:00 vincentdarley Exp $
+# RCS: @(#) $Id: reg.test,v 1.18 2003/10/06 14:32:22 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -138,7 +138,7 @@ proc doing {major desc} {
 
 # build test number (internal)
 proc tno {testid} {
-	return [lindex $testid 0]
+	return [join $testid .]
 }
 
 # build description, with possible modifiers (internal)
diff --git a/tests/resource.test b/tests/resource.test
index efacda0..f968769 100644
--- a/tests/resource.test
+++ b/tests/resource.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: resource.test,v 1.7 2000/04/10 17:19:03 ericm Exp $
+# RCS: @(#) $Id: resource.test,v 1.8 2003/10/06 14:32:22 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -273,7 +273,7 @@ test resource-8.5 {resource delete tests} {macOnly} {
     file delete rsrc2.file
     lappend result $mssg
 } {1 {expected Macintosh OS type but got "_bad_type_"}}
-test resource-8.5 {resource delete tests} {macOnly} {
+test resource-8.5.1 {resource delete tests} {macOnly} {
     catch {file delete rsrc2.file}
     set id [resource open rsrc2.file w]
     set result [catch {resource delete -id 128 -file $id TEXT} mssg]
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test
index 7a57f7f..d8f5a4c 100644
--- a/tests/unixNotfy.test
+++ b/tests/unixNotfy.test
@@ -10,14 +10,14 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: unixNotfy.test,v 1.12 2003/09/04 17:50:18 dgp Exp $
+# RCS: @(#) $Id: unixNotfy.test,v 1.13 2003/10/06 14:32:22 dgp Exp $
 
 # The tests should not be run if you have a notifier which is unable to
 # detect infinite vwaits, as the tests below will hang. The presence of
 # the "testthread" command indicates that this is the case.
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
diff --git a/tests/winDde.test b/tests/winDde.test
index de8dd4f..5600984 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -9,10 +9,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: winDde.test,v 1.18 2003/06/23 22:05:11 patthoyts Exp $
+# RCS: @(#) $Id: winDde.test,v 1.19 2003/10/06 14:32:22 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     #tcltest::configure -verbose {pass start}
     namespace import -force ::tcltest::*
 }