diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-02-27 19:43:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-02-27 19:43:58 (GMT) |
| commit | 79c06cebc59a8bb6423c763367e84015e5fb0322 (patch) | |
| tree | 532b2a2795efc9de4a9bbc8b5e7c77647dda6469 | |
| parent | 0ccce7884bcd6cb73745b3011c5770fe39d9e9a8 (diff) | |
| download | tcl-79c06cebc59a8bb6423c763367e84015e5fb0322.zip tcl-79c06cebc59a8bb6423c763367e84015e5fb0322.tar.gz tcl-79c06cebc59a8bb6423c763367e84015e5fb0322.tar.bz2 | |
added missing constraint
| -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}] |