summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2003-06-10 19:58:25 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2003-06-10 19:58:25 (GMT)
commiteb3d0976d6642da1d58097dd0c63336427f68e3d (patch)
treea89c6d5cb9c9431ba2df9e76e0b0de0ee9bcae8c /tests
parent88bf24e7cb31b621f6232bbe780c1ea64a5c77cc (diff)
downloadtcl-eb3d0976d6642da1d58097dd0c63336427f68e3d.zip
tcl-eb3d0976d6642da1d58097dd0c63336427f68e3d.tar.gz
tcl-eb3d0976d6642da1d58097dd0c63336427f68e3d.tar.bz2
* generic/tclBasic.c:
* generic/tclExecute.c: let TclExecuteObjvInternal call TclInterpReady instead of relying on its callers to do so; fix for the part of [Bug 495830] that is new in 8.4. * tests/interp.test: Added tests 18.9 (knownbug) and 18.10
Diffstat (limited to 'tests')
-rw-r--r--tests/interp.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/interp.test b/tests/interp.test
index f29aec6..e4b34eb 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: interp.test,v 1.19.2.3 2003/05/12 22:35:40 dgp Exp $
+# RCS: @(#) $Id: interp.test,v 1.19.2.4 2003/06/10 19:58:37 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -759,6 +759,16 @@ if {[info commands testinterpdelete] == ""} {
list [catch {a eval foo} msg] $msg
} {1 {attempt to call eval in deleted interpreter}}
}
+test interp-18.9 {eval in deleted interp, bug 495830} {knownbug} {
+ interp create tst
+ interp alias tst suicide {} interp delete tst
+ list [catch {tst eval {suicide; set a 5}} msg] $msg
+} {1 {attempt to call eval in deleted interpreter}}
+test interp-18.10 {eval in deleted interp, bug 495830} {
+ interp create tst
+ interp alias tst suicide {} interp delete tst
+ list [catch {tst eval {set set set; suicide; $set a 5}} msg] $msg
+} {1 {attempt to call eval in deleted interpreter}}
# Test alias deletion