summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-20 07:38:45 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-20 07:38:45 (GMT)
commitc1b361063c982bbd7cc02b0c26c524cc414379e6 (patch)
treea118025ed3715c63f5d05334ea13f7686da38d3f /tests
parent869661b25a7665bee7b0d441164b367e4f1aaab7 (diff)
downloadtcl-c1b361063c982bbd7cc02b0c26c524cc414379e6.zip
tcl-c1b361063c982bbd7cc02b0c26c524cc414379e6.tar.gz
tcl-c1b361063c982bbd7cc02b0c26c524cc414379e6.tar.bz2
add test case for very long value names and values
Diffstat (limited to 'tests')
-rw-r--r--tests/registry.test6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/registry.test b/tests/registry.test
index 85b4f42..a3bc891 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -458,6 +458,12 @@ test registry-6.20 {GetValue: values with Unicode strings with embedded nulls} {
registry delete HKEY_CURRENT_USER\\TclFoobar
set result
} "foo ba r baz"
+test registry-6.21 {GetValue: very long value names and values} {pcOnly} {
+ registry set HKEY_CURRENT_USER\\TclFoobar [string repeat k 16383] [string repeat x 16383] multi_sz
+ set result [registry get HKEY_CURRENT_USER\\TclFoobar [string repeat k 16383]]
+ registry delete HKEY_CURRENT_USER\\TclFoobar
+ set result
+} [string repeat x 16383]
test registry-7.1 {GetValueNames: bad key} {pcOnly english} {
registry delete HKEY_CURRENT_USER\\TclFoobar