summaryrefslogtreecommitdiffstats
path: root/tests/compile.test
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2014-12-03 23:17:16 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2014-12-03 23:17:16 (GMT)
commit3e76a216e3a989a6dbaefd832a0a2dc795672e2e (patch)
treee08948ee7f431d6bd49ae4a3034133c8c12bd562 /tests/compile.test
parent6e6e7b2c773fb61f034c68c04bf90e48cacce161 (diff)
downloadtcl-3e76a216e3a989a6dbaefd832a0a2dc795672e2e.zip
tcl-3e76a216e3a989a6dbaefd832a0a2dc795672e2e.tar.gz
tcl-3e76a216e3a989a6dbaefd832a0a2dc795672e2e.tar.bz2
test and fix (thx dgp)bug_0c043a175
Diffstat (limited to 'tests/compile.test')
-rw-r--r--tests/compile.test9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 8150622..45d69e9 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -464,11 +464,12 @@ test compile-14.1 {testing errors in element name; segfault?} {} {
} {{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
+ unset -nocomplain 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 $}
+ set a(1) 2
+ set a($) 3
+ list [set a()] [set a(1)] [set a($)] [unset a(); lindex [array names a] 0]
+} -cleanup {unset a} -result [list 1 2 3 {$}]
# Tests compile-15.* cover Tcl Bug 633204