summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2010-08-03 16:50:48 (GMT)
committerandreas_kupries <akupries@shaw.ca>2010-08-03 16:50:48 (GMT)
commit6126b749e49798b51c35dce430c698d2b0ff82e4 (patch)
tree266e5fd0e308b5f7bcb827e7cca36447fadb6d3a
parentaab0f71223c2ea4d6a0861b070ecca1975a6adf6 (diff)
downloadtcl-6126b749e49798b51c35dce430c698d2b0ff82e4.zip
tcl-6126b749e49798b51c35dce430c698d2b0ff82e4.tar.gz
tcl-6126b749e49798b51c35dce430c698d2b0ff82e4.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.
-rw-r--r--ChangeLog8
-rw-r--r--tests/info.test6
2 files changed, 11 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index de5aa4a..b137ba6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2010-08-03 Andreas Kupries <andreask@activestate.com>
+
+ * 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.
+
2010-08-03 Don Porter <dgp@users.sourceforge.net>
* changes: Update for 8.5.9 release.
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 {