From 9a9830e9ae1659f50647d28b879f819e2b6a4993 Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 6 Oct 2003 14:32:22 +0000 Subject: * 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: --- ChangeLog | 14 ++++++++++++++ tests/dict.test | 8 ++++---- tests/fileSystem.test | 2 +- tests/lrepeat.test | 4 ++-- tests/notify.test | 4 ++-- tests/parseExpr.test | 4 ++-- tests/reg.test | 4 ++-- tests/resource.test | 4 ++-- tests/unixNotfy.test | 4 ++-- tests/winDde.test | 4 ++-- 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 + + * 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 * 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::* } -- cgit v0.12