summaryrefslogtreecommitdiffstats
path: root/tests/dict.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-19 17:21:41 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-19 17:21:41 (GMT)
commit91ec52b16e7cd903ca196560e5ddb1d5ca1c60a9 (patch)
treeff53311711566639a9a3f31ab15a21f9e3f9dd44 /tests/dict.test
parentb290b21a4427ac5d1584ad6fcf61e4934f1bf505 (diff)
downloadtcl-91ec52b16e7cd903ca196560e5ddb1d5ca1c60a9.zip
tcl-91ec52b16e7cd903ca196560e5ddb1d5ca1c60a9.tar.gz
tcl-91ec52b16e7cd903ca196560e5ddb1d5ca1c60a9.tar.bz2
Line numbers wrong in compiled [dict with].
Diffstat (limited to 'tests/dict.test')
-rw-r--r--tests/dict.test30
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/dict.test b/tests/dict.test
index 6c254eb..a583de8 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -1905,6 +1905,36 @@ test dict-23.9 {CompileWord OBOE} {
} [return [incr n -[linenumber]]]
}} [linenumber]
} 1
+test dict-23.10 {CompileWord OBOE} {
+ apply {n {
+ dict with foo {*}{
+ } [return [incr n -[linenumber]]] {}
+ }} [linenumber]
+} 1
+test dict-23.11 {CompileWord OBOE} {
+ apply {n {
+ dict with ::foo {*}{
+ } [return [incr n -[linenumber]]] {}
+ }} [linenumber]
+} 1
+test dict-23.12 {CompileWord OBOE} {
+ apply {n {
+ dict with {*}{
+ } [return [incr n -[linenumber]]] {}
+ }} [linenumber]
+} 1
+test dict-23.13 {CompileWord OBOE} {
+ apply {n {
+ dict with {*}{
+ } [return [incr n -[linenumber]]] {bar}
+ }} [linenumber]
+} 1
+test dict-23.14 {CompileWord OBOE} {
+ apply {n {
+ dict with foo {*}{
+ } [return [incr n -[linenumber]]] {bar}
+ }} [linenumber]
+} 1
rename linenumber {}
test dict-24.22 {dict map results (non-compiled)} {