summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2014-12-03 13:22:53 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2014-12-03 13:22:53 (GMT)
commit6e6e7b2c773fb61f034c68c04bf90e48cacce161 (patch)
tree9236851f9a039dd5d4c6aa14828859b4902b9718
parenta03c9da848ffd7e60101c43321e05f79635f8cef (diff)
downloadtcl-6e6e7b2c773fb61f034c68c04bf90e48cacce161.zip
tcl-6e6e7b2c773fb61f034c68c04bf90e48cacce161.tar.gz
tcl-6e6e7b2c773fb61f034c68c04bf90e48cacce161.tar.bz2
adding a test for the bug
-rw-r--r--tests/compile.test12
1 files changed, 10 insertions, 2 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 22ebc7d..8150622 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -455,14 +455,22 @@ test compile-13.1 {testing underestimate of maxStackSize in list cmd} {exec} {
list [catch {exec [interpreter] << $script} msg] $msg
} {0 OK}
-# Special test for compiling tokens from a copy of the source string. [Bug
-# 599788]
+# Tests compile-14.* for compiling tokens from a copy of the source string.
+# [Bug 599788] [Bug 0c043a175a47da8c2342]
test compile-14.1 {testing errors in element name; segfault?} {} {
catch {set a([error])} msg1
catch {set bubba([join $abba $jubba]) $vol} msg2
list $msg1 $msg2
} {{wrong # args: should be "error message ?errorInfo? ?errorCode?"} {can't read "abba": no such variable}}
+test compile-14.2 {testing element name "$"} -body {
+ unset a
+ set a() 1
+ set a($) 2
+ list [set a()] [set a($)] [unset a(); lindex [array names a] 0]
+} -cleanup {unset a} -result {1 2 $}
+
+
# Tests compile-15.* cover Tcl Bug 633204
test compile-15.1 {proper TCL_RETURN code from [return]} {
apply {{} {catch return}}