summaryrefslogtreecommitdiffstats
path: root/tests/compile.test
diff options
context:
space:
mode:
authormig <mig>2013-12-11 15:55:28 (GMT)
committermig <mig>2013-12-11 15:55:28 (GMT)
commitc7d612f81758056c1d7511f1f4f8dff108ef76d7 (patch)
tree7a0e0950475a80bbee80e1208642952f2d27230e /tests/compile.test
parentd83a8d3b91859aa6d510256f3b26c4a3d98bdd5d (diff)
downloadtcl-c7d612f81758056c1d7511f1f4f8dff108ef76d7.zip
tcl-c7d612f81758056c1d7511f1f4f8dff108ef76d7.tar.gz
tcl-c7d612f81758056c1d7511f1f4f8dff108ef76d7.tar.bz2
new test, and fix for bug
Diffstat (limited to 'tests/compile.test')
-rw-r--r--tests/compile.test30
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 36e24de..2852bf2 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -167,6 +167,36 @@ test compile-3.6 {TclCompileCatchCmd: error in storing result [Bug 3098302]} {*}
-cleanup {namespace delete catchtest}
}
+test compile-3.7 {TclCompileCatchCmd: error in storing options [Bug 3098302]} {*}{
+ -setup {
+ namespace eval catchtest {
+ variable options1 {}
+ }
+ trace add variable catchtest::options1 write catchtest::failtrace
+ proc catchtest::failtrace {n1 n2 op} {
+ return -code error "trace on $n1 fails by request"
+ }
+ }
+ -body {
+ proc catchtest::x {} {
+ variable options1
+ set count 0
+ for {set i 0} {$i < 10} {incr i} {
+ set status2 [catch {
+ set status1 [catch {
+ return -code error -level 0 "original failure"
+ } result1 options1]
+ } result2 options2]
+ incr count
+ }
+ list $count $result2
+ }
+ catchtest::x
+ }
+ -result {10 {can't set "options1": trace on options1 fails by request}}
+ -cleanup {namespace delete catchtest}
+}
+
test compile-4.1 {TclCompileForCmd: command substituted test expression} {
set i 0
set j 0