diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2005-11-14 00:48:14 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2005-11-14 00:48:14 (GMT) |
| commit | a951278c386a8485715fdb0c48f325ded815eb97 (patch) | |
| tree | a318437b76e3d6bc0f05a713e170a19e1856dd78 | |
| parent | 9264d5ca1bd013c78fc5f822303ce4c03bde8c74 (diff) | |
| download | tcl-a951278c386a8485715fdb0c48f325ded815eb97.zip tcl-a951278c386a8485715fdb0c48f325ded815eb97.tar.gz tcl-a951278c386a8485715fdb0c48f325ded815eb97.tar.bz2 | |
added comments to tests/namespace.test
| -rw-r--r-- | tests/namespace.test | 6 |
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 {} {} |