summaryrefslogtreecommitdiffstats
path: root/tests/interp.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/interp.test')
-rw-r--r--tests/interp.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/interp.test b/tests/interp.test
index 8e84db0..8c0f7b7 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -10,13 +10,15 @@
# 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.32 2004/05/19 20:15:31 dkf Exp $
+# RCS: @(#) $Id: interp.test,v 1.33 2004/05/19 20:29:17 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
namespace import -force ::tcltest::*
}
+testConstraint testinterpdelete [llength [info commands testinterpdelete]]
+
set hidden_cmds {cd encoding exec exit fconfigure file glob load open pwd socket source}
foreach i [interp slaves] {
@@ -674,7 +676,6 @@ test interp-17.5 {alias loop prevention} {
# the bugs as a core dump.
#
-testCosntraint testinterpdelete [llength [info commands testinterpdelete]]
test interp-18.1 {testing Tcl_DeleteInterp vs slaves} testinterpdelete {
list [catch {testinterpdelete} msg] $msg
} {1 {wrong # args: should be "testinterpdelete path"}}