diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2000-11-17 11:06:53 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2000-11-17 11:06:53 (GMT) |
| commit | 8e4090a762536e54f6a55f0461e649e0991dc76d (patch) | |
| tree | b29e0883a22bdc44e1bdf483d0aba228aa6f7328 /tests/safe.test | |
| parent | ca9a991ea487b51b3fdc3d98b2f033ebb68053f7 (diff) | |
| download | tcl-8e4090a762536e54f6a55f0461e649e0991dc76d.zip tcl-8e4090a762536e54f6a55f0461e649e0991dc76d.tar.gz tcl-8e4090a762536e54f6a55f0461e649e0991dc76d.tar.bz2 | |
Finally fixed bug 119192. This was a real nasty that was hidden by
the fact that it never caused a crash and was blocked most of the time
from coming into play by the way the compiler handles array variable
references. (Yes, the test suite does pass now on this machine at
least...)
Diffstat (limited to 'tests/safe.test')
| -rw-r--r-- | tests/safe.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/safe.test b/tests/safe.test index 641fe9d..2eb6788 100644 --- a/tests/safe.test +++ b/tests/safe.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: safe.test,v 1.9 2000/04/10 17:19:04 ericm Exp $ +# RCS: @(#) $Id: safe.test,v 1.10 2000/11/17 11:06:54 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -122,7 +122,7 @@ test safe-4.3 {safe::interpDelete, state array (not a public api)} { catch {namespace eval safe {set [InterpStateName a](foo)}} m2 list $m1 $m2 } "{}\ - {can't read \"[safe::InterpStateName a]\": no such variable}" + {can't read \"[safe::InterpStateName a](foo)\": no such variable}" test safe-4.4 {safe::interpDelete, state array, indirectly (not a public api)} { |