diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2010-08-03 16:50:47 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2010-08-03 16:50:47 (GMT) |
| commit | 68a50a4a5c9425991a7a70bd7113489c4da0700f (patch) | |
| tree | 266e5fd0e308b5f7bcb827e7cca36447fadb6d3a /tests/info.test | |
| parent | 529f36dc27c4262a6eb74a459f02738cfc396432 (diff) | |
| download | tcl-68a50a4a5c9425991a7a70bd7113489c4da0700f.zip tcl-68a50a4a5c9425991a7a70bd7113489c4da0700f.tar.gz tcl-68a50a4a5c9425991a7a70bd7113489c4da0700f.tar.bz2 | |
* tests/info.test (info-39.1, test_info_frame): Changed absolute
to relative frame adressing to handle difference between testing
with -singleproc 1 vs. the default -singleproc 0. Plus comment
fix. The test and issue are not relevant to the trunk, forward
porting is not required.
FossilOrigin-Name: 3afaa5e1ff1e8144e267e64a8d88a7e49e708730
Diffstat (limited to 'tests/info.test')
| -rw-r--r-- | tests/info.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/info.test b/tests/info.test index 0196162..b668669 100644 --- a/tests/info.test +++ b/tests/info.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.47.2.11 2010/02/02 20:51:47 andreas_kupries Exp $ +# RCS: @(#) $Id: info.test,v 1.47.2.12 2010/08/03 16:50:49 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -1723,11 +1723,11 @@ test info-39.1 {location information not confused by literal sharing, bug 293308 } ;#line 1722^ # Do not put the comments listing the line numbers into the # branches. We need shared literals, and the comments would - # them different, thus unshared. + # make them different, thus unshared. } proc get_frame_info { cmd_str op } { - lappend ::result [reduce [eval {info frame 9}]] + lappend ::result [reduce [eval {info frame -3}]] } trace add execution print_one enter get_frame_info } -body { |