summaryrefslogtreecommitdiffstats
path: root/tests/trace.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-11-21 17:37:49 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-11-21 17:37:49 (GMT)
commitac3c3863608b65712752d23e59f4fcd85143aae1 (patch)
tree782cbb26e7a2d7b443d57caa2ce58c8a0a6739d4 /tests/trace.test
parentce8d99c1e94271f0d1f544785308d77954153eeb (diff)
downloadtcl-ac3c3863608b65712752d23e59f4fcd85143aae1.zip
tcl-ac3c3863608b65712752d23e59f4fcd85143aae1.tar.gz
tcl-ac3c3863608b65712752d23e59f4fcd85143aae1.tar.bz2
* corrected test trace-8.8 for Bug 219393
Diffstat (limited to 'tests/trace.test')
-rw-r--r--tests/trace.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/trace.test b/tests/trace.test
index f28b50e..d883008 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.12 2001/11/19 14:35:55 dkf Exp $
+# RCS: @(#) $Id: trace.test,v 1.13 2001/11/21 17:37:49 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -493,7 +493,7 @@ test trace-8.8 {error returns from traces} {
}
catch {unset ::x ::y}
set x junk
- trace add variable ::x write [list junk $x]
+ trace add variable ::x write [list foo $x]
for {set y 0} {$y<100} {incr y} {
catch {set x junk}
}