diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2009-11-09 22:59:12 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2009-11-09 22:59:12 (GMT) |
| commit | f2c40574368b27768a774d12191222cf03b9acc5 (patch) | |
| tree | f8acb55e02c3d92551e1ae7dc489d7604271786a | |
| parent | ea58b1f82830bf56ca3018c8ce1084710d6281bc (diff) | |
| download | tcl-f2c40574368b27768a774d12191222cf03b9acc5.zip tcl-f2c40574368b27768a774d12191222cf03b9acc5.tar.gz tcl-f2c40574368b27768a774d12191222cf03b9acc5.tar.bz2 | |
* tests/info.test: Resolve ambiguous resolution of variable
"res". Forward port from 8.5
FossilOrigin-Name: c490168fd62877b85054358702fd5cd9b9cb6957
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | tests/info.test | 4 |
2 files changed, 5 insertions, 2 deletions
@@ -6,6 +6,9 @@ to prevent seg.faulting. Forward port from valgrinding the Tcl 8.5 branch. + * tests/info.test: Resolve ambiguous resolution of variable + "res". Forward port from 8.5 + 2009-11-08 Donal K. Fellows <dkf@users.sf.net> * doc/string.n (bytelength): Noted that this command is not a good diff --git a/tests/info.test b/tests/info.test index 7e89d8e..da54562 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.69 2009/10/29 22:20:12 dkf Exp $ +# RCS: @(#) $Id: info.test,v 1.70 2009/11/09 22:59:13 andreas_kupries Exp $ if {{::tcltest} ni [namespace children]} { package require tcltest 2 @@ -1033,7 +1033,7 @@ set body {set flag 0 set a c set res [info frame 0]} ;# line 3! -test info-31.0 {ns eval, script in variable} -body { +test info-31.0 {ns eval, script in variable} -body {set res {} namespace eval foo $body return $foo::res } -result {type eval line 3 cmd {info frame 0} level 0} -cleanup { |