diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-13 12:42:38 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-13 12:42:38 (GMT) |
commit | 3c1b7f78dc3d31142226b8c29cce38d5d3a86f03 (patch) | |
tree | 52d0ca4489845303b074fc697d13f83df4e2d29d /tests/interp.test | |
parent | c903f10ac62ec93774a9785e5a29e06259882e1a (diff) | |
download | tcl-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.test | 37 |
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 |