diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-06-13 17:20:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-06-13 17:20:45 (GMT) |
| commit | 5645bb01ffdfc76dbf7e9a026cb146f3d7b5eafc (patch) | |
| tree | 3b2c1d0911271017b26a6e7354af84a0d5c05e8b /tests/namespace.test | |
| parent | e69d76af16939ec4327b1793f8a2cb358a141972 (diff) | |
| download | tcl-5645bb01ffdfc76dbf7e9a026cb146f3d7b5eafc.zip tcl-5645bb01ffdfc76dbf7e9a026cb146f3d7b5eafc.tar.gz tcl-5645bb01ffdfc76dbf7e9a026cb146f3d7b5eafc.tar.bz2 | |
Test namespace-56.4 detects Bug 8b9854c3d8. Branch open to fix it.
Diffstat (limited to 'tests/namespace.test')
| -rw-r--r-- | tests/namespace.test | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index 1d26512..58d6839 100644 --- a/tests/namespace.test +++ b/tests/namespace.test @@ -3323,6 +3323,19 @@ namespace eval : { : p1 } 16fe1b5807 + +test namespace-56.4 {Bug 8b9854c3d8} -setup { + namespace eval namespace-56.4 { + proc cmd {} {string match ::* [lindex [info level 0] 0]} + namespace export * + namespace ensemble create + } +} -body { + namespace-56.4 cmd +} -cleanup { + namespace delete namespace-56.4 +} -result 1 + # cleanup catch {rename cmd1 {}} |