summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog14
-rw-r--r--tests/dict.test8
-rw-r--r--tests/fileSystem.test2
-rw-r--r--tests/lrepeat.test4
-rwxr-xr-xtests/notify.test4
-rw-r--r--tests/parseExpr.test4
-rw-r--r--tests/reg.test4
-rw-r--r--tests/resource.test4
-rw-r--r--tests/unixNotfy.test4
-rw-r--r--tests/winDde.test4
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::*
}