diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-22 17:48:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-22 17:48:40 (GMT) |
| commit | 49cd80a29d7bb4252a2ad031783314b98821a6ce (patch) | |
| tree | da5cffc73d62ba6191c570a7e6aa2920ad579a6c /tests | |
| parent | 49aba3d99eb7035ee260003ddc27728b26962d43 (diff) | |
| download | tcl-49cd80a29d7bb4252a2ad031783314b98821a6ce.zip tcl-49cd80a29d7bb4252a2ad031783314b98821a6ce.tar.gz tcl-49cd80a29d7bb4252a2ad031783314b98821a6ce.tar.bz2 | |
Fix "registry" test-cases. Thanks to Harald Oehlmann for spotting this!
Diffstat (limited to 'tests')
| -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 2072559..b6be074 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.2] + set ::regver [package require registry 1.3.3] }]} { 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.2} +} {1.3.3} 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 ...?"}} |