diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-05-17 15:01:46 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-05-17 15:01:46 (GMT) |
| commit | 1e55ed351f4f2db6a9c633227fd691df7eb7b347 (patch) | |
| tree | 8915b034019dbf850e4a4bb5a569a3fc7955a43d /tests/dict.test | |
| parent | 94e77fec5bfbfb1d111781fa1f083c5fbd56c4de (diff) | |
| download | tcl-1e55ed351f4f2db6a9c633227fd691df7eb7b347.zip tcl-1e55ed351f4f2db6a9c633227fd691df7eb7b347.tar.gz tcl-1e55ed351f4f2db6a9c633227fd691df7eb7b347.tar.bz2 | |
[Bug 3527618]: Stabilize tests that use [info frame 0]
Diffstat (limited to 'tests/dict.test')
| -rw-r--r-- | tests/dict.test | 8 |
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 {} |