diff options
author | stanton <stanton> | 1998-10-05 18:47:26 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-10-05 18:47:26 (GMT) |
commit | 6f9be304e945c0139348c6fce93791cc4369655a (patch) | |
tree | 04697b4972d70a9ef1c563b775c03cd40a8fe792 | |
parent | 44b966187727772a263a3c73f9f2b04def50d82f (diff) | |
download | tcl-6f9be304e945c0139348c6fce93791cc4369655a.zip tcl-6f9be304e945c0139348c6fce93791cc4369655a.tar.gz tcl-6f9be304e945c0139348c6fce93791cc4369655a.tar.bz2 |
* interp.test: added test for interp deleting itself
-rw-r--r-- | tests/interp.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/interp.test b/tests/interp.test index ac8f792..f602def 100644 --- a/tests/interp.test +++ b/tests/interp.test @@ -9,7 +9,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.1.2.2 1998/09/24 23:59:27 stanton Exp $ +# RCS: @(#) $Id: interp.test,v 1.1.2.3 1998/10/05 18:47:26 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -186,6 +186,9 @@ test interp-4.7 {testing interp delete} { interp create c2 list [catch {interp delete c1 c2 c3} msg] $msg } {1 {could not find interpreter "c3"}} +test interp-4.8 {testing interp delete} { + list [catch {interp delete {}} msg] $msg +} {1 {cannot delete the current interpreter}} foreach i [interp slaves] { interp delete $i |