summaryrefslogtreecommitdiffstats
path: root/tests/interp.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-08-13 12:42:38 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-08-13 12:42:38 (GMT)
commit3c1b7f78dc3d31142226b8c29cce38d5d3a86f03 (patch)
tree52d0ca4489845303b074fc697d13f83df4e2d29d /tests/interp.test
parentc903f10ac62ec93774a9785e5a29e06259882e1a (diff)
downloadtcl-3c1b7f78dc3d31142226b8c29cce38d5d3a86f03.zip
tcl-3c1b7f78dc3d31142226b8c29cce38d5d3a86f03.tar.gz
tcl-3c1b7f78dc3d31142226b8c29cce38d5d3a86f03.tar.bz2
Backout uncomplete fix for [3422267ed6b79922]: segmentation fault from deleting the the target of an imported alias during a trace on the target of the alias.
Since it causes build failures.
Diffstat (limited to 'tests/interp.test')
-rw-r--r--tests/interp.test37
1 files changed, 0 insertions, 37 deletions
diff --git a/tests/interp.test b/tests/interp.test
index 9287756..599ac08 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -3664,43 +3664,6 @@ test interp-38.8 {interp debug basic setup} -body {
} -returnCodes {
error
} -result {wrong # args: should be "interp debug path ?-frame ?bool??"}
-
-test interp-39.0 {
- no segmentation fault when a command is deleted
-} -body {
- variable res {}
-
- proc p1 args {
- return success
- }
- namespace eval ns1 {
- namespace export *
- }
- interp alias {} [namespace current]::ns1::p2 {} [namespace current]::p1
- namespace eval ns2 {
- namespace import [namespace parent]::ns1::p2
- }
- proc ondelete {oldname newname op} {
- variable res
- namespace delete ns1
- catch {
- ns1::p2
- } res
- }
-
- trace add command ns2::p2 delete [namespace which ondelete]
- rename ns2::p2 {}
- rename p1 {}
- if {
- [string match {*invalid command name*ns1::p2*} $res]
- } {
- return 1
- } else {
- return $res
- }
-} -cleanup {
-} -result 1
-
# cleanup
unset -nocomplain hidden_cmds