summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-10-06 14:30:03 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-10-06 14:30:03 (GMT)
commitab075d4de6e44ed1a638b47cb4a287b5d9c47580 (patch)
treed81eb379e6e5cbf731a563981a715023852c6e66 /tests
parent78fbe7e16e6796847893e608e886b3e779a6e98e (diff)
downloadtcl-ab075d4de6e44ed1a638b47cb4a287b5d9c47580.zip
tcl-ab075d4de6e44ed1a638b47cb4a287b5d9c47580.tar.gz
tcl-ab075d4de6e44ed1a638b47cb4a287b5d9c47580.tar.bz2
* tests/reg.test: Corrected duplicate test names.
* tests/resource.test: [Bugs 710370, 710358]
Diffstat (limited to 'tests')
-rw-r--r--tests/reg.test4
-rw-r--r--tests/resource.test4
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/reg.test b/tests/reg.test
index 86f0098..a4f5bea 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.16 2002/07/29 12:28:35 dkf Exp $
+# RCS: @(#) $Id: reg.test,v 1.16.2.1 2003/10/06 14:30:06 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..ba6a403 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.7.24.1 2003/10/06 14:30:06 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]