summaryrefslogtreecommitdiffstats
path: root/tests/parse.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-03-06 21:56:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-03-06 21:56:11 (GMT)
commitf04a0f4fc371aae20e1d651be91414b3591fc4a4 (patch)
treeb356d298e243eae44defe680c0ea954259723513 /tests/parse.test
parent76f698cfd03687bdb68303ca5f307f327006c40b (diff)
downloadtcl-f04a0f4fc371aae20e1d651be91414b3591fc4a4.zip
tcl-f04a0f4fc371aae20e1d651be91414b3591fc4a4.tar.gz
tcl-f04a0f4fc371aae20e1d651be91414b3591fc4a4.tar.bz2
* generic/tclBasic.c: Revised handling of TCL_EVAL_* flags to
* tests/parse.test: simplify TclEvalObjvInternal and to correct the auto-loading of alias targets (parse-8.12). [Bug 1444291].
Diffstat (limited to 'tests/parse.test')
-rw-r--r--tests/parse.test24
1 files changed, 22 insertions, 2 deletions
diff --git a/tests/parse.test b/tests/parse.test
index dae14e9..6820d80 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: parse.test,v 1.11.2.3 2006/02/28 15:44:36 dgp Exp $
+# RCS: @(#) $Id: parse.test,v 1.11.2.4 2006/03/06 21:56:13 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -312,7 +312,27 @@ test parse-8.11 {Tcl_EvalObjv procedure, TCL_EVAL_INVOKE} testevalobjv {
rename ::unknown {}
rename unknown.save ::unknown
set ::info
-} [subst {[set level 2; incr level [info level]] namespace 1 global 1 global}]
+} [subst {[set level 2; incr level [info level]] global 1 global 1 global}]
+test parse-8.12 {Tcl_EvalObjv procedure, TCL_EVAL_INVOKE} {
+ set ::auto_index(noSuchCommand) {
+ proc noSuchCommand {} {lappend ::info global}
+ }
+ set ::auto_index(::[string trimleft [namespace current]::test_ns_1::noSuchCommand :]) [list \
+ proc [namespace current]::test_ns_1::noSuchCommand {} {
+ lappend ::info ns
+ }]
+ catch {rename ::noSuchCommand {}}
+ set ::slave [interp create]
+ $::slave alias bar noSuchCommand
+ set ::info {}
+ namespace eval test_ns_1 {
+ $::slave eval bar
+ }
+ namespace delete test_ns_1
+ interp delete $::slave
+ catch {rename ::noSuchCommand {}}
+ set ::info
+} global
test parse-9.1 {Tcl_LogCommandInfo, line numbers} {
catch {unset x}