summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/basic.test27
1 files changed, 26 insertions, 1 deletions
diff --git a/tests/basic.test b/tests/basic.test
index 62248a5..251d82e 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -15,7 +15,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: basic.test,v 1.12 2001/09/20 01:02:20 hobbs Exp $
+# RCS: @(#) $Id: basic.test,v 1.13 2002/01/03 11:58:25 dkf Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -495,7 +495,32 @@ test basic-39.2 {Tcl_CreateTrace, correct command and argc/argv arguments of tra
test basic-39.3 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {testcmdtrace} {
testcmdtrace deletetest {set stuff [info tclversion]}
} $tclvers
+test basic-39.4 {Tcl_CreateTrace, check that tracing doesn't cause memory faults} {testcmdtrace knownBug} {
+ proc inst {args} {}
+ proc Something {} {inst}
+ proc Test {level} {
+ incr level
+ puts "Test: level = $level"
+ #inst "a"
+ Something ;# you may call inst directly
+ if {$level == 1} {
+ set instlist {1 2}
+ } else {
+ set instlist {}
+ }
+ puts "instlist = /$instlist/"
+
+ foreach inst $instlist {
+ puts "inst = /$inst/"
+ Test $level
+ }
+ }
+ testcmdtrace tracetest {Test 0}
+} {}
+catch {rename inst {}}
+catch {rename Test {}}
+catch {rename Something {}}
test basic-40.1 {Tcl_DeleteTrace} {emptyTest} {
} {}