diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-02-21 02:54:05 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-02-21 02:54:05 (GMT) |
| commit | dba8f13bdc2c35f160c525de0b6d93d1d7d36ac2 (patch) | |
| tree | d958745c68f1996c37ebd2fb5b79d36e437a2d56 | |
| parent | f1c511cf3fd338a187498e455646764687f64d58 (diff) | |
| download | tcl-dba8f13bdc2c35f160c525de0b6d93d1d7d36ac2.zip tcl-dba8f13bdc2c35f160c525de0b6d93d1d7d36ac2.tar.gz tcl-dba8f13bdc2c35f160c525de0b6d93d1d7d36ac2.tar.bz2 | |
added test
| -rw-r--r-- | tests/namespace.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index 166ff00..cac547a 100644 --- a/tests/namespace.test +++ b/tests/namespace.test @@ -1056,6 +1056,14 @@ test namespace-26.7 {NamespaceExportCmd, -clear resets export list} { } list [lsort [info commands test_ns_2::*]] [test_ns_2::cmd4 hello] } [list [lsort {::test_ns_2::cmd4 ::test_ns_2::cmd1 ::test_ns_2::cmd3}] {cmd4: hello}] +test namespace-26.8 {NamespaceExportCmd, -clear resets export list} { + catch {namespace delete foo} + namespace eval foo { + namespace export x + namespace export -clear + } + list [namespace eval foo namespace export] [namespace delete foo] +} {{} {}} test namespace-27.1 {NamespaceForgetCmd, no args} { catch {eval namespace delete [namespace children :: test_ns_*]} |