diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-22 08:17:14 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-22 08:17:14 (GMT) |
| commit | 5aa79e6ffa7474ff3409dd9e018c6ad41c307efb (patch) | |
| tree | 27685dfe33e8a600d9b66b1cbf62e5ff32d27581 /tests | |
| parent | 397b74eec937a0848cd4c55dc47a7a35c9cdae68 (diff) | |
| parent | 607975b5dcc8af44e0fe65ab9ca787ed659e79bd (diff) | |
| download | tcl-5aa79e6ffa7474ff3409dd9e018c6ad41c307efb.zip tcl-5aa79e6ffa7474ff3409dd9e018c6ad41c307efb.tar.gz tcl-5aa79e6ffa7474ff3409dd9e018c6ad41c307efb.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests')
| -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 7234a32..400277f 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -505,6 +505,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} -constraints {win reg english} -setup { registry delete HKEY_CURRENT_USER\\TclFoobar |