diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2005-11-04 01:15:19 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2005-11-04 01:15:19 (GMT) |
| commit | c2f30c4326efeeaff9b28a2015ab079750bfd038 (patch) | |
| tree | 1c297b8a88c0862a516d74fb05a0ff7d9a955526 /tests/trace.test | |
| parent | b6a925833d204aad9696d5bdeb784724a67ea504 (diff) | |
| download | tcl-c2f30c4326efeeaff9b28a2015ab079750bfd038.zip tcl-c2f30c4326efeeaff9b28a2015ab079750bfd038.tar.gz tcl-c2f30c4326efeeaff9b28a2015ab079750bfd038.tar.bz2 | |
* generic/tclInt.h:
* generic/tclNamesp.c:
* generic/tclVar.c: fix for [Bugs 1338280/1337229]. Thanks Don.
* tests/trace.test: fix duplicate test numbers
Diffstat (limited to 'tests/trace.test')
| -rw-r--r-- | tests/trace.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/trace.test b/tests/trace.test index c60bc9b..9569ae0 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: trace.test,v 1.26.2.10 2005/10/29 18:44:53 msofer Exp $ +# RCS: @(#) $Id: trace.test,v 1.26.2.11 2005/11/04 01:15:21 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1185,12 +1185,12 @@ test trace-18.4 {namespace delete / trace vdelete combo, Bug \#1338280} { catch {unset x} catch {unset y} -test trace-18.3 {trace add command (command existence)} { +test trace-19.0.1 {trace add command (command existence)} { # Just in case! catch {rename nosuchname ""} list [catch {trace add command nosuchname rename traceCommand} msg] $msg } {1 {unknown command "nosuchname"}} -test trace-18.4 {trace add command (command existence in ns)} { +test trace-19.0.2 {trace add command (command existence in ns)} { list [catch {trace add command nosuchns::nosuchname rename traceCommand} msg] $msg } {1 {unknown command "nosuchns::nosuchname"}} |