diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-10-06 14:30:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-10-06 14:30:03 (GMT) |
| commit | ab075d4de6e44ed1a638b47cb4a287b5d9c47580 (patch) | |
| tree | d81eb379e6e5cbf731a563981a715023852c6e66 | |
| parent | 78fbe7e16e6796847893e608e886b3e779a6e98e (diff) | |
| download | tcl-ab075d4de6e44ed1a638b47cb4a287b5d9c47580.zip tcl-ab075d4de6e44ed1a638b47cb4a287b5d9c47580.tar.gz tcl-ab075d4de6e44ed1a638b47cb4a287b5d9c47580.tar.bz2 | |
* tests/reg.test: Corrected duplicate test names.
* tests/resource.test: [Bugs 710370, 710358]
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | tests/reg.test | 4 | ||||
| -rw-r--r-- | tests/resource.test | 4 |
3 files changed, 7 insertions, 4 deletions
@@ -1,5 +1,8 @@ 2003-10-06 Don Porter <dgp@users.sourceforge.net> + * tests/reg.test: Corrected duplicate test names. + * tests/resource.test: [Bugs 710370, 710358] + * tests/cmdMZ.test: Updated [package require tcltest] lines to * tests/fileSystem.test: indiciate that these test files * tests/notify.test: use features of tcltest 2. [Bug 706114] 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] |