diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-04-17 14:25:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-04-17 14:25:59 (GMT) |
| commit | f720f4cad5dc71321f549bcdb10dbb0a312e52e4 (patch) | |
| tree | d6740913b025def8077218f007e138602ef0f283 /tests | |
| parent | 6fb4854406b2c9cf6a6496ffaa026fcf0e3e065a (diff) | |
| download | tcl-f720f4cad5dc71321f549bcdb10dbb0a312e52e4.zip tcl-f720f4cad5dc71321f549bcdb10dbb0a312e52e4.tar.gz tcl-f720f4cad5dc71321f549bcdb10dbb0a312e52e4.tar.bz2 | |
Isolate tests of [info frame] results from testing environment.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/info.test | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/info.test b/tests/info.test index fbc65ba..fb2da75 100644 --- a/tests/info.test +++ b/tests/info.test @@ -773,16 +773,16 @@ test info-22.8 {info frame, basic trace} -constraints {!singleTestInterp} -match ## The line 1967 is off by 5 from the true value of 1972. This is a knownBug, see testcase 30.0 -test info-23.0 {eval'd info frame} {!singleTestInterp} { - eval {info frame} -} 8 -test info-23.1 {eval'd info frame, semi-dynamic} {!singleTestInterp} { - eval info frame -} 8 -test info-23.2 {eval'd info frame, dynamic} {!singleTestInterp} { - set script {info frame} - eval $script -} 8 +test info-23.0 {eval'd info frame} -constraints {!singleTestInterp} -body { + list [i eval {info frame}] [i eval {eval {info frame}}] +} -setup {interp create i} -cleanup {interp delete i} -result {1 2} +test info-23.1 {eval'd info frame, semi-dynamic} -constraints {!singleTestInterp} -body { + i eval {eval info frame} +} -setup {interp create i} -cleanup {interp delete i} -result 2 +test info-23.2 {eval'd info frame, dynamic} -constraints {!singleTestInterp} -body { + i eval { set script {info frame} + eval $script} +} -setup {interp create i} -cleanup {interp delete i} -result 2 test info-23.3 {eval'd info frame, literal} -match glob -body { eval { info frame 0 |