diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-20 07:38:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-20 07:38:45 (GMT) |
| commit | 3cd5ae270a08e203946ae54346560d0ca1fca1b7 (patch) | |
| tree | a118025ed3715c63f5d05334ea13f7686da38d3f | |
| parent | 2fdbb7fad77f01efc0913b2608d434e19daf2d92 (diff) | |
| download | tcl-3cd5ae270a08e203946ae54346560d0ca1fca1b7.zip tcl-3cd5ae270a08e203946ae54346560d0ca1fca1b7.tar.gz tcl-3cd5ae270a08e203946ae54346560d0ca1fca1b7.tar.bz2 | |
add test case for very long value names and values
| -rw-r--r-- | tests/registry.test | 6 |
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 |