diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-04-12 13:30:37 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-04-12 13:30:37 +1000 |
| commit | c6573385979a55b9c78caf7e272aa772452048ac (patch) | |
| tree | f609a87c6c7bc6a42d60e9d121bdc61c4a62dfb3 /regtest.tcl | |
| parent | 1b4e9d79690603c8db3cb53bcf4bbf180101fbde (diff) | |
| download | jimtcl-c6573385979a55b9c78caf7e272aa772452048ac.zip jimtcl-c6573385979a55b9c78caf7e272aa772452048ac.tar.gz jimtcl-c6573385979a55b9c78caf7e272aa772452048ac.tar.bz2 | |
Fix [for] crash if loop var is unset
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index b9f3f00..e62d0a9 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -110,6 +110,13 @@ a catch {eval {$x(}} puts "TEST 17 PASSED" +# REGTEST 18 +# 12 Apr 2011 - crashes on unset for loop var +catch { + for {set i 0} {$i < 5} {incr i} {unset i} +} +puts "TEST 18 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |