Applied patch about unset a(x) against non existing 'a' variable

(Clemens Hintze). Dictionary handling code and error messages
modified a bit (me).

1 files changed, 10 insertions, 0 deletions

diff --git a/regtest.tcl b/regtest.tcl
index c1aeac3..a013e3e 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -35,6 +35,16 @@ puts "TEST 4 PASSED"
 for {set i 0} {$i < 10} {incr i} {continue}
 puts "TEST 5 PASSED"
 
+# REGTEST 6
+# 07Mar2005 - Unset create variable + dict is using dict syntax sugar at
+#             currently non-existing variable
+catch {unset thisvardoesnotexists(thiskeytoo)}
+if {[catch {set thisvardoesnotexists}] == 0} {
+  puts "TEST 6 FAILED - unset created dict for non-existing variable"
+  break
+}
+puts "TEST 6 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"