diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-06-21 18:38:23 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-06-21 18:38:23 (GMT) |
| commit | f81f14146b45e2134cf88261271a8440bb1a3405 (patch) | |
| tree | 25eaeba0ea65f4e47e80ba0331b68de985719347 /tests/registry.test | |
| parent | 3c7c7211e92d675398a7bbda6dcc19d9edc3fc0d (diff) | |
| parent | 687013812cd6ca56d2bfc1c0b75d98a6f8a2d264 (diff) | |
| download | tcl-f81f14146b45e2134cf88261271a8440bb1a3405.zip tcl-f81f14146b45e2134cf88261271a8440bb1a3405.tar.gz tcl-f81f14146b45e2134cf88261271a8440bb1a3405.tar.bz2 | |
merge 8.5
Diffstat (limited to 'tests/registry.test')
| -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 2a38f2a..f90f602 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -460,6 +460,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 199] [string repeat x 199] multi_sz + set result [registry get HKEY_CURRENT_USER\\TclFoobar [string repeat k 199]] + registry delete HKEY_CURRENT_USER\\TclFoobar + set result +} [string repeat x 199] test registry-7.1 {GetValueNames: bad key} {win reg english} { registry delete HKEY_CURRENT_USER\\TclFoobar |