diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-04 12:40:10 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-04 12:40:10 (GMT) |
commit | 31030cfb27c62ab16efb286d60d6fddb738d8046 (patch) | |
tree | 261f1455eb014425fff73c6e146c54a261a2c859 /tests | |
parent | 0bfb4bfba786aed8007805789baccdeab6711582 (diff) | |
parent | dba280d1b84eae2c164b1c0991e1b0795e290b8e (diff) | |
download | tcl-31030cfb27c62ab16efb286d60d6fddb738d8046.zip tcl-31030cfb27c62ab16efb286d60d6fddb738d8046.tar.gz tcl-31030cfb27c62ab16efb286d60d6fddb738d8046.tar.bz2 |
merge trunk
Diffstat (limited to 'tests')
-rw-r--r-- | tests/basic.test | 15 | ||||
-rw-r--r-- | tests/string.test | 3 |
2 files changed, 18 insertions, 0 deletions
diff --git a/tests/basic.test b/tests/basic.test index bff9a95..7819241 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -224,6 +224,21 @@ test basic-15.1 {Tcl_CreateObjCommand, new cmd goes into a namespace specified i list [test_ns_basic::cmd] \ [namespace delete test_ns_basic] } {::test_ns_basic {}} +test basic-15.2 {Tcl_CreateObjCommand, Bug 0e4d88b650} -setup { + proc deleter {ns args} { + namespace delete $ns + } + namespace eval n { + proc p {} {} + } + trace add command n::p delete [list [namespace which deleter] [namespace current]::n] +} -body { + proc n::p {} {} +} -cleanup { + namespace delete n + rename deleter {} +} + test basic-16.1 {TclInvokeStringCommand} {emptyTest} { } {} diff --git a/tests/string.test b/tests/string.test index 7b02928..549944d 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1371,6 +1371,9 @@ test string-14.16 {string replace} { test string-14.17 {string replace} { string replace abcdefghijklmnop end end-1 } {abcdefghijklmnop} +test string-14.18 {string replace} { + string replace abcdefghijklmnop 10 9 XXX +} {abcdefghijklmnop} test string-15.1 {string tolower too few args} { list [catch {string tolower} msg] $msg |