diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-21 09:34:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-21 09:34:53 (GMT) |
| commit | 6f7aaeb8e62672aaba75334987f581da92e16607 (patch) | |
| tree | 3f65ca039f88a530f9cea51cbee2a60eb8af78c0 /tests/registry.test | |
| parent | 1563392fa51c84e8a2fb6883be2f1a1c9bf29a82 (diff) | |
| parent | aca79fe51d9c823d6d6e5ece3fbb1a69baa40a57 (diff) | |
| download | tcl-6f7aaeb8e62672aaba75334987f581da92e16607.zip tcl-6f7aaeb8e62672aaba75334987f581da92e16607.tar.gz tcl-6f7aaeb8e62672aaba75334987f581da92e16607.tar.bz2 | |
[Bug #3362446]: registry keys command fails with 8.5/8.6
update registry version to 1.2.2
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..bd91911 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 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} {win reg english} { registry delete HKEY_CURRENT_USER\\TclFoobar |