diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-16 14:11:50 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-16 14:11:50 (GMT) |
| commit | 837b9c9c7f6f3f01e286eb8ab111b268eba47842 (patch) | |
| tree | 752c216216cf230e79bafdc10e22bb4d6d97502c /tests | |
| parent | 7ac80cab9e7494b78ed8010a98bd096e83cd5955 (diff) | |
| download | tcl-837b9c9c7f6f3f01e286eb8ab111b268eba47842.zip tcl-837b9c9c7f6f3f01e286eb8ab111b268eba47842.tar.gz tcl-837b9c9c7f6f3f01e286eb8ab111b268eba47842.tar.bz2 | |
Greatly improved ensemble compiler. This one now can handle any ensemble.
It is usually not enabled though; only worth it when a subcommand is actually
expected to undergo bytecode compilation.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/namespace.test | 4 | ||||
| -rw-r--r-- | tests/trace.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index 3ef1e35..5f7bdfb 100644 --- a/tests/namespace.test +++ b/tests/namespace.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: namespace.test,v 1.68 2007/09/09 19:28:31 dgp Exp $ +# RCS: @(#) $Id: namespace.test,v 1.69 2007/11/16 14:11:53 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -174,7 +174,7 @@ test namespace-7.7 {Bug 1655305} -setup { interp create slave # Can't invoke through the ensemble, since deleting the global namespace # (indirectly, via deleting ::tcl) deletes the ensemble. - slave eval {rename ::tcl::Info_commands ::infocommands} + slave eval {rename ::tcl::info::commands ::infocommands} slave hide infocommands slave eval { proc foo {} { diff --git a/tests/trace.test b/tests/trace.test index e172c03..bd3600f 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.59 2007/08/14 15:17:51 dgp Exp $ +# RCS: @(#) $Id: trace.test,v 1.60 2007/11/16 14:11:53 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -2277,7 +2277,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]} -} [concat {{info tclversion} {info tclversion} ::tcl::Info_tclversion {::tcl::Info_tclversion} {set stuff [info tclversion]}} [list "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] |