diff options
Diffstat (limited to 'tests/namespace.test')
| -rw-r--r-- | tests/namespace.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index bed9361..f6092cc 100644 --- a/tests/namespace.test +++ b/tests/namespace.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: namespace.test,v 1.54 2006/02/22 17:42:04 dgp Exp $ +# RCS: @(#) $Id: namespace.test,v 1.55 2006/02/27 19:43:58 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -2508,7 +2508,10 @@ test namespace-52.9 {unknown: refcounting} -setup { namespace unknown $handler rename this {} } -result {this is a test noSuchCommand} -test namespace-52.10 {unknown: with TCL_EVAL_GLOBAL} -setup { +testConstraint testevalobjv [llength [info commands testevalobjv]] +test namespace-52.10 {unknown: with TCL_EVAL_GLOBAL} -constraints { + testevalobjv +} -setup { rename ::unknown unknown.save proc ::unknown args { set caller [uplevel 1 {namespace current}] |