summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2005-11-14 00:48:14 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2005-11-14 00:48:14 (GMT)
commita951278c386a8485715fdb0c48f325ded815eb97 (patch)
treea318437b76e3d6bc0f05a713e170a19e1856dd78
parent9264d5ca1bd013c78fc5f822303ce4c03bde8c74 (diff)
downloadtcl-a951278c386a8485715fdb0c48f325ded815eb97.zip
tcl-a951278c386a8485715fdb0c48f325ded815eb97.tar.gz
tcl-a951278c386a8485715fdb0c48f325ded815eb97.tar.bz2
added comments to tests/namespace.test
-rw-r--r--tests/namespace.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/namespace.test b/tests/namespace.test
index ede0e00..81a0d78 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.47 2005/11/14 00:41:05 msofer Exp $
+# RCS: @(#) $Id: namespace.test,v 1.48 2005/11/14 00:48:14 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -134,6 +134,7 @@ test namespace-7.2 {Tcl_DeleteNamespace, no active call frames in ns} {
list [test_ns_2::p] [namespace delete test_ns_2]
} {::test_ns_2 {}}
test namespace-7.3 {recursive Tcl_DeleteNamespace, active call frames in ns} {
+ # [Bug 1355942]
namespace eval test_ns_2 {
set x 1
trace add variable x unset "namespace delete [namespace current];#"
@@ -141,6 +142,7 @@ test namespace-7.3 {recursive Tcl_DeleteNamespace, active call frames in ns} {
}
} {}
test namespace-7.4 {recursive Tcl_DeleteNamespace, active call frames in ns} {
+ # [Bug 1355942]
# Currently fails due to [Bug 1355342]
namespace eval test_ns_2 {
proc x {} {}
@@ -149,6 +151,7 @@ test namespace-7.4 {recursive Tcl_DeleteNamespace, active call frames in ns} {
}
} {}
test namespace-7.5 {recursive Tcl_DeleteNamespace, no active call frames in ns} {
+ # [Bug 1355942]
namespace eval test_ns_2 {
set x 1
trace add variable x unset "namespace delete [namespace current];#"
@@ -156,6 +159,7 @@ test namespace-7.5 {recursive Tcl_DeleteNamespace, no active call frames in ns}
namespace delete test_ns_2
} {}
test namespace-7.6 {recursive Tcl_DeleteNamespace, active call frames in ns} {
+ # [Bug 1355942]
# Currently fails due to [Bug 1355342]
namespace eval test_ns_2 {
proc x {} {}