summaryrefslogtreecommitdiffstats
path: root/tests/trace.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-03-27 13:19:13 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-03-27 13:19:13 (GMT)
commit6def5b4ca3044c768a03aad8316287ebfa8249ff (patch)
tree723e0cd6f1265d1b4add45cfea8f14253c9bf2d8 /tests/trace.test
parent5775be2569a55d245b9f3dc34eefe98fc5e17cff (diff)
downloadtcl-6def5b4ca3044c768a03aad8316287ebfa8249ff.zip
tcl-6def5b4ca3044c768a03aad8316287ebfa8249ff.tar.gz
tcl-6def5b4ca3044c768a03aad8316287ebfa8249ff.tar.bz2
Eliminated duplicate test numbers [Bugs 710322, 710327, 710349, 710363]
Diffstat (limited to 'tests/trace.test')
-rw-r--r--tests/trace.test25
1 files changed, 12 insertions, 13 deletions
diff --git a/tests/trace.test b/tests/trace.test
index 2da4a9f..263b402 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 2003/02/03 20:16:54 kennykb Exp $
+# RCS: @(#) $Id: trace.test,v 1.27 2003/03/27 13:19:15 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -828,13 +828,13 @@ test trace-14.11 {trace command, "trace variable" errors} {
} [list 1 "bad operations \"y\": should be one or more of rwua"]
-test trace-14.9 {trace command ("remove variable" option)} {
+test trace-14.12 {trace command ("remove variable" option)} {
catch {unset x}
set info {}
trace add variable x write traceProc
trace remove variable x write traceProc
} {}
-test trace-14.10 {trace command ("remove variable" option)} {
+test trace-14.13 {trace command ("remove variable" option)} {
catch {unset x}
set info {}
trace add variable x write traceProc
@@ -842,7 +842,7 @@ test trace-14.10 {trace command ("remove variable" option)} {
set x 12345
set info
} {}
-test trace-14.11 {trace command ("remove variable" option)} {
+test trace-14.14 {trace command ("remove variable" option)} {
catch {unset x}
set info {}
trace add variable x write {traceTag 1}
@@ -857,7 +857,7 @@ test trace-14.11 {trace command ("remove variable" option)} {
set x gorp
set info
} {2 x {} write 1 2 1 2}
-test trace-14.12 {trace command ("remove variable" option)} {
+test trace-14.15 {trace command ("remove variable" option)} {
catch {unset x}
set info {}
trace add variable x write {traceTag 1}
@@ -865,27 +865,27 @@ test trace-14.12 {trace command ("remove variable" option)} {
set x 12345
set info
} {1}
-test trace-14.15 {trace command ("info variable" option)} {
+test trace-14.16 {trace command ("info variable" option)} {
catch {unset x}
trace add variable x write {traceTag 1}
trace add variable x write traceProc
trace add variable x write {traceTag 2}
trace info variable x
} {{write {traceTag 2}} {write traceProc} {write {traceTag 1}}}
-test trace-14.16 {trace command ("info variable" option)} {
+test trace-14.17 {trace command ("info variable" option)} {
catch {unset x}
trace info variable x
} {}
-test trace-14.17 {trace command ("info variable" option)} {
+test trace-14.18 {trace command ("info variable" option)} {
catch {unset x}
trace info variable x(0)
} {}
-test trace-14.18 {trace command ("info variable" option)} {
+test trace-14.19 {trace command ("info variable" option)} {
catch {unset x}
set x 44
trace info variable x(0)
} {}
-test trace-14.19 {trace command ("info variable" option)} {
+test trace-14.20 {trace command ("info variable" option)} {
catch {unset x}
set x 44
trace add variable x write {traceTag 1}
@@ -1165,12 +1165,12 @@ test trace-18.2 {namespace delete / trace vdelete combo} {
catch {unset x}
catch {unset y}
-test trace-18.2 {trace add command (command existence)} {
+test trace-18.3 {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.3 {trace add command (command existence in ns)} {
+test trace-18.4 {trace add command (command existence in ns)} {
list [catch {trace add command nosuchns::nosuchname rename traceCommand} msg] $msg
} {1 {unknown command "nosuchns::nosuchname"}}
@@ -2105,4 +2105,3 @@ catch {unset info}
# cleanup
::tcltest::cleanupTests
return
-