diff options
author | antirez <antirez> | 2005-03-28 17:47:15 +0000 |
---|---|---|
committer | antirez <antirez> | 2005-03-28 17:47:15 +0000 |
commit | d6f57adaa070c9e06d6d2e2e90edf166afea7933 (patch) | |
tree | f7f9c9a49e6ac8429c3109d4949a84072354b17f /test.tcl | |
parent | fdf5499a95b2aad40243e1d5a16334096115b0f2 (diff) | |
download | jimtcl-d6f57adaa070c9e06d6d2e2e90edf166afea7933.zip jimtcl-d6f57adaa070c9e06d6d2e2e90edf166afea7933.tar.gz jimtcl-d6f57adaa070c9e06d6d2e2e90edf166afea7933.tar.bz2 |
The behaviour of [scope] modified a bit. Test updated accordingly.
Diffstat (limited to 'test.tcl')
-rw-r--r-- | test.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -1,4 +1,4 @@ -# $Id: test.tcl,v 1.27 2005/03/28 16:57:36 antirez Exp $ +# $Id: test.tcl,v 1.28 2005/03/28 17:47:15 antirez Exp $ # # This are Tcl tests imported into Jim. Tests that will probably not be passed # in the long term are usually removed (for example all the tests about @@ -4183,14 +4183,14 @@ test scope-1.4 {Non existing array element} { info exists x(a) } {0} -test scope-1.5 {Array element and var contaning the dict modifications} { - set x "a 1 b 2" - scope {x(a) x} { - set x "foo" +test scope-1.5 {Info exists} { + set x foo + scope x { + info exists x } - set x -} {a 1 b 2} +} {0} +catch {unset x} catch {unset y} ################################################################################ |