summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-05-17 15:01:46 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-05-17 15:01:46 (GMT)
commit1e55ed351f4f2db6a9c633227fd691df7eb7b347 (patch)
tree8915b034019dbf850e4a4bb5a569a3fc7955a43d /tests
parent94e77fec5bfbfb1d111781fa1f083c5fbd56c4de (diff)
downloadtcl-1e55ed351f4f2db6a9c633227fd691df7eb7b347.zip
tcl-1e55ed351f4f2db6a9c633227fd691df7eb7b347.tar.gz
tcl-1e55ed351f4f2db6a9c633227fd691df7eb7b347.tar.bz2
[Bug 3527618]: Stabilize tests that use [info frame 0]
Diffstat (limited to 'tests')
-rw-r--r--tests/dict.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/dict.test b/tests/dict.test
index 5277cf6..77bacf6 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -1475,7 +1475,7 @@ proc linenumber {} {
dict get [info frame -1] line
}
test dict-23.1 {dict compilation crash: Bug 3487626} {
- apply {n {
+ apply {{} {apply {n {
set e {}
set k {}
dict for {a b} {c {d {e {f g}}}} {
@@ -1487,14 +1487,14 @@ test dict-23.1 {dict compilation crash: Bug 3487626} {
}
}
}
- }} [linenumber]
+ }} [linenumber]}}
} 5
test dict-23.2 {dict compilation crash: Bug 3487626} knownBug {
# Something isn't quite right in line number and continuation line
# tracking; at time of writing, this test produces 7, not 5, which
# indicates that the extra newlines in the non-script argument are
# confusing things.
- apply {n {
+ apply {{} {apply {n {
set e {}
set k {}
dict for {a {
@@ -1518,7 +1518,7 @@ j
}
}
}
- }} [linenumber]
+ }} [linenumber]}}
} 5
rename linenumber {}