diff options
| author | dkf <dkf@noemail.net> | 2007-06-12 12:33:57 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2007-06-12 12:33:57 (GMT) |
| commit | 5fc83945070d82b365803fb69e8fe0be89f319c8 (patch) | |
| tree | 0d74aadaf31ab1b820eea1376209fdbff67e6361 /tests/trace.test | |
| parent | 50975fd836801ce4607f7ef733206666bafe0663 (diff) | |
| download | tcl-5fc83945070d82b365803fb69e8fe0be89f319c8.zip tcl-5fc83945070d82b365803fb69e8fe0be89f319c8.tar.gz tcl-5fc83945070d82b365803fb69e8fe0be89f319c8.tar.bz2 | |
Convert [info] into an ensemble command.
FossilOrigin-Name: 825feb050e91926b3f0d82289f526c283e49974f
Diffstat (limited to 'tests/trace.test')
| -rw-r--r-- | tests/trace.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/trace.test b/tests/trace.test index 5ab6a72..f549a4b 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: trace.test,v 1.51 2006/11/03 23:24:43 msofer Exp $ +# RCS: @(#) $Id: trace.test,v 1.52 2007/06/12 12:34:04 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -2249,7 +2249,7 @@ test trace-29.1 {Tcl_CreateTrace, correct command and argc/argv arguments of tra } {{expr 14 + 16} {expr 14 + 16} {set stuff [expr 14 + 16]} {set stuff 30}} test trace-29.2 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {testcmdtrace} { testcmdtrace tracetest {set stuff [info tclversion]} -} [list {info tclversion} {info tclversion} {set stuff [info tclversion]} "set stuff [info tclversion]"] +} [concat {{info tclversion} {info tclversion} ::tcl::Info_tclversion {::tcl::Info_tclversion} {set stuff [info tclversion]}} [list "set stuff [info tclversion]"]] test trace-29.3 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {testcmdtrace} { testcmdtrace deletetest {set stuff [info tclversion]} } [info tclversion] |