summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-01-09 18:34:17 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-01-09 18:34:17 (GMT)
commit38ee79dc06785b01c4638025cb206a4bd275d29f (patch)
treeb2447d982f1b0569fb22374e1742d32e8cbb6c61 /tests
parent10d55ac03132aa4b7caa60831c65e2c9c483f573 (diff)
downloadtcl-38ee79dc06785b01c4638025cb206a4bd275d29f.zip
tcl-38ee79dc06785b01c4638025cb206a4bd275d29f.tar.gz
tcl-38ee79dc06785b01c4638025cb206a4bd275d29f.tar.bz2
* generic/tclNamesp.c (NamespaceInscopeCmd): [namespace inscope]
* tests/namespace.test: commands were not reported by [info level] [Bug 1400572].
Diffstat (limited to 'tests')
-rw-r--r--tests/namespace.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/namespace.test b/tests/namespace.test
index 2c36171..68d0c66 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.21.2.8 2005/11/18 23:07:27 msofer Exp $
+# RCS: @(#) $Id: namespace.test,v 1.21.2.9 2006/01/09 18:34:18 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1006,6 +1006,9 @@ test namespace-25.8 {NamespaceEvalCmd, error in eval'd script} knownBug {
invoked from within
"namespace eval test_ns_1 error foo bar baz"}}
catch {unset v}
+test namespace-25.9 {NamespaceEvalCmd, 545325} {
+ namespace eval test_ns_1 info level 0
+} {namespace eval test_ns_1 info level 0}
test namespace-26.1 {NamespaceExportCmd, no args and new ns} {
catch {eval namespace delete [namespace children :: test_ns_*]}
@@ -1120,6 +1123,10 @@ test namespace-29.5 {NamespaceInscopeCmd, has lappend semantics} {
list [namespace inscope test_ns_1 cmd x y z] \
[namespace eval test_ns_1 [concat cmd [list x y z]]]
} {{::test_ns_1::cmd: v=747, args=x y z} {::test_ns_1::cmd: v=747, args=x y z}}
+test namespace-29.6 {NamespaceInscopeCmd, 1400572} {
+ namespace inscope test_ns_1 {info level 0}
+} {namespace inscope test_ns_1 {info level 0}}
+
test namespace-30.1 {NamespaceOriginCmd, bad args} {
catch {eval namespace delete [namespace children :: test_ns_*]}