diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 07:49:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 07:49:50 (GMT) |
| commit | 88a98003bf03a290ae31656870efb11b2588d0cd (patch) | |
| tree | 8d8fddf0c4cd33af8803bebf7f440f475289ca5f /tests/registry.test | |
| parent | 675a0b7982d2ef03a79ee18e5f85aed8a2d34698 (diff) | |
| download | tcl-88a98003bf03a290ae31656870efb11b2588d0cd.zip tcl-88a98003bf03a290ae31656870efb11b2588d0cd.tar.gz tcl-88a98003bf03a290ae31656870efb11b2588d0cd.tar.bz2 | |
Make tclreg13.dll work in any Unicode environment (either with 32-bit or 64-bit characters). Adopted from Androwish. Thanks to Christian Werner. version -> 1.3.2
Diffstat (limited to 'tests/registry.test')
| -rw-r--r-- | tests/registry.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/registry.test b/tests/registry.test index 0f78212..2072559 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -19,7 +19,7 @@ testConstraint reg 0 if {[testConstraint win]} { if {![catch { ::tcltest::loadTestedCommands - set ::regver [package require registry 1.3.1] + set ::regver [package require registry 1.3.2] }]} { testConstraint reg 1 } @@ -33,7 +33,7 @@ testConstraint english [expr { test registry-1.0 {check if we are testing the right dll} {win reg} { set ::regver -} {1.3.1} +} {1.3.2} test registry-1.1 {argument parsing for registry command} {win reg} { list [catch {registry} msg] $msg } {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}} |