diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-04-17 14:39:19 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-04-17 17:36:50 +1000 |
commit | f35906bf66173de97f1f0febab9c996a273e260b (patch) | |
tree | ce79d61e11b98cb699e4f21ca7152435c80b8480 /tests | |
parent | 30f1b1ce7a3755db94c31c77f6e013d84ab36a55 (diff) | |
download | jimtcl-f35906bf66173de97f1f0febab9c996a273e260b.zip jimtcl-f35906bf66173de97f1f0febab9c996a273e260b.tar.gz jimtcl-f35906bf66173de97f1f0febab9c996a273e260b.tar.bz2 |
local, rename: don't allow renaming a local proc with upcall
If an existing command was replaced when using local proc ...,
then renaming the command will break upcall from within the proc
because the command no longer exists in the namespace. To prevent
this case, disallow rename of such a command.
It is still OK to delete with rename <cmd> ""
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/alias.test | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/alias.test b/tests/alias.test index 4f6e553..866aa1b 100644 --- a/tests/alias.test +++ b/tests/alias.test @@ -240,9 +240,28 @@ test upcall-1.4 "upcall errors" { list [catch {upcall a} msg] $msg } {1 {no previous command: "a"}} -test upcall-1.4 "upcall errors" { +test upcall-1.5 "upcall errors" { proc a {} {upcall a} list [catch a msg] $msg } {1 {no previous command: "a"}} +test upcall-1.6 "delete local command" -setup { + # First make sure a is gone + rename a "" +} -body { + local proc a {x} {list 2 $x} + # It is OK to rename this local proc + rename a b + b 5 +} -result {2 5} -cleanup { + rename b "" +} + +test upcall-1.6 {delete local command with upcall} -body { + local proc a {x} {list 2 $x} + local proc a {x} {list 3 $x} + # Can't rename a because it would invalide upcalls from a + rename a c +} -returnCodes error -result {can't rename local command "a"} + testreport |