diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-06 11:52:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-06 11:52:16 (GMT) |
| commit | f3b329dd2833e543a9d0d3cd7aa2102fd5744cd9 (patch) | |
| tree | 948be4a822fed9b3c5af697bdac14cf3827645c1 /tests | |
| parent | 496cff3ee18aff1069c341d282371190cff6563f (diff) | |
| parent | 0a38e523d30dbe1119fa0a84fb1e08860f029220 (diff) | |
| download | tcl-f3b329dd2833e543a9d0d3cd7aa2102fd5744cd9.zip tcl-f3b329dd2833e543a9d0d3cd7aa2102fd5744cd9.tar.gz tcl-f3b329dd2833e543a9d0d3cd7aa2102fd5744cd9.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ooProp.test | 2 | ||||
| -rw-r--r-- | tests/registry.test | 4 | ||||
| -rw-r--r-- | tests/winDde.test | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/tests/ooProp.test b/tests/ooProp.test index 256b934..fd77997 100644 --- a/tests/ooProp.test +++ b/tests/ooProp.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. -package require TclOO 1.0.3 +package require tcl::oo 1.0.3 package require tcltest 2 if {"::tcltest" in [namespace children]} { namespace import -force ::tcltest::* diff --git a/tests/registry.test b/tests/registry.test index 2a9608f..4fc96bf 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.5] + set ::regver [package require registry 1.3.6] }]} { testConstraint reg 1 } @@ -34,7 +34,7 @@ testConstraint english [expr { test registry-1.0 {check if we are testing the right dll} {win reg} { set ::regver -} {1.3.5} +} {1.3.6} 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 ...?"}} diff --git a/tests/winDde.test b/tests/winDde.test index 7766497..f57a226 100644 --- a/tests/winDde.test +++ b/tests/winDde.test @@ -19,7 +19,7 @@ testConstraint dde 0 if {[testConstraint win]} { if {![catch { ::tcltest::loadTestedCommands - set ::ddever [package require dde 1.4.3] + set ::ddever [package require dde 1.4.4] set ::ddelib [info loaded {} Dde]}]} { testConstraint dde 1 } @@ -104,7 +104,7 @@ proc createChildProcess {ddeServerName args} { # ------------------------------------------------------------------------- test winDde-1.0 {check if we are testing the right dll} {win dde} { set ::ddever -} {1.4.3} +} {1.4.4} test winDde-1.1 {Settings the server's topic name} -constraints dde -body { list [dde servername foobar] [dde servername] [dde servername self] |