summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-08-02 20:55:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-08-02 20:55:25 (GMT)
commit7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d (patch)
treef85c32954ee501d185c1c8a08b0c40030be082b6 /tests
parent3fa3ba646929ac210ff9b90aae5b4483dcf4878f (diff)
downloadtcl-7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d.zip
tcl-7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d.tar.gz
tcl-7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d.tar.bz2
TIP#207 IMPLEMENTATION
* doc/interp.n: Added support for a -namespace option to the * generic/tclBasic.c: [interp invokehidden] command. Also added an * generic/tclInt.h: internal routine TclObjInvokeNamespace() and * generic/tclInterp.c: corrected the flag names TCL_FIND_ONLY_NS and * generic/tclNamesp.c: TCL_CREATE_NS_IF_UNKNOWN that are passed to the * generic/tclTrace.c: internal routine TclGetNamespaceForQualName(). * tests/interp.test: [Patch 981841]
Diffstat (limited to 'tests')
-rw-r--r--tests/interp.test15
1 files changed, 14 insertions, 1 deletions
diff --git a/tests/interp.test b/tests/interp.test
index 0275e75..b60eb2c 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: interp.test,v 1.38 2004/05/27 15:05:28 dkf Exp $
+# RCS: @(#) $Id: interp.test,v 1.39 2004/08/02 20:55:38 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -1490,6 +1490,19 @@ test interp-20.48 {interp hide vs namespaces} {
interp delete a
set l
} {1 {cannot use namespace qualifiers in hidden command token (rename)}}
+test interp-20.49 {interp invokehidden -namespace} -setup {
+ set script [makeFile {
+ set x [namespace current]
+ } script]
+ interp create -safe slave
+} -body {
+ slave invokehidden -namespace ::foo source $script
+ slave eval {set ::foo::x}
+} -cleanup {
+ interp delete slave
+ removeFile script
+} -result ::foo
+
test interp-21.1 {interp hidden} {
interp hidden {}