* tests/var.test (var-19.1): [Bug 3037525]: Added test

	demonstrating the local hashtable deletion crash and fix.

2 files changed, 13 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 9a55173..f2075c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2010-08-03  Andreas Kupries  <andreask@activestate.com>
 
+	* tests/var.test (var-19.1): [Bug 3037525]: Added test
+	demonstrating the local hashtable deletion crash and fix.
+
+2010-08-03  Andreas Kupries  <andreask@activestate.com>
+
 	* tests/info.test (info-39.1): Added forward copy of test in 8.5
 	branch about [Bug 2933089]. Should not fail, and doesn't, after
 	updating the line numbers to the changed position.
diff --git a/tests/var.test b/tests/var.test
index 59b71be..dd9483b 100644
--- a/tests/var.test
+++ b/tests/var.test
@@ -14,7 +14,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: var.test,v 1.35 2010/02/02 00:11:31 dkf Exp $
+# RCS: @(#) $Id: var.test,v 1.36 2010/08/03 17:25:13 andreas_kupries Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -762,6 +762,13 @@ test var-18.1 {array unset and unset traces: Bug 2939073} -setup {
 } -cleanup {
     unset x already
 } -result 0
+
+
+test var-19.1 {crash when freeing locals hashtable: Bug 3037525} {
+    proc foo {} { catch {upvar 0 dummy \$index} }
+    foo ; # This crashes without the fix for the bug
+    rename foo {}
+} {}
 
 catch {namespace delete ns}
 catch {unset arr}