* win/tclWinReg.c (GetKeyNames): Size the buffer for enumerating

key names correctly, so that Unicode names exceeding 127 chars
can be retrieved without crashing. [Bug 1682211]
* tests/registry.test (registry-4.9): Added test case for the
above bug.

1 files changed, 21 insertions, 1 deletions

diff --git a/tests/registry.test b/tests/registry.test
index 28027d5..742a8e5 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -10,7 +10,7 @@
 # Copyright (c) 1997 by Sun Microsystems, Inc.  All rights reserved.
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 #
-# RCS: @(#) $Id: registry.test,v 1.19 2006/03/21 11:12:29 dkf Exp $
+# RCS: @(#) $Id: registry.test,v 1.20 2007/03/17 22:31:41 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -249,6 +249,20 @@ test registry-4.8 {GetKeyNames: Unicode} {win reg nt} {
     registry delete HKEY_CLASSES_ROOT\\TclFoobar
     set result
 } "baz\u30b7bar blat"
+test registry-4.9 {GetKeyNames: very long key [Bug 1682211]} {*}{
+    -constraints {win && reg}
+    -setup {
+	registry set HKEY_CLASSES_ROOT\\TclFoobar\\a
+	registry set HKEY_CLASSES_ROOT\\TclFoobar\\b[string repeat x 254]
+	registry set HKEY_CLASSES_ROOT\\TclFoobar\\c
+    }
+    -body {
+	lsort [registry keys HKEY_CLASSES_ROOT\\TclFoobar]
+    }
+    -cleanup {
+	registry delete HKEY_CLASSES_ROOT\\TclFoobar
+    }} \
+    -result [list a b[string repeat x 254] c]
 
 test registry-5.1 {GetType} {win reg english} {
     registry delete HKEY_CLASSES_ROOT\\TclFoobar
@@ -600,3 +614,9 @@ test registry-12.5 {BroadcastValue} {win reg} {
 # cleanup
 ::tcltest::cleanupTests
 return
+
+# Local Variables:
+# mode: tcl
+# tcl-indent-level: 4
+# fill-column: 78
+# End: