diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-07-15 16:56:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-07-15 16:56:31 (GMT) |
| commit | 043de52c9870236b12bc1231eccf35e61b22558c (patch) | |
| tree | 230ae2938c63f2aa5abf5179608344bbe3d77f2a /tests/constraints.tcl | |
| parent | 2e111650d22e90af7843a8c343a87d136ea8a409 (diff) | |
| download | tk-043de52c9870236b12bc1231eccf35e61b22558c.zip tk-043de52c9870236b12bc1231eccf35e61b22558c.tar.gz tk-043de52c9870236b12bc1231eccf35e61b22558c.tar.bz2 | |
* Fixes for [Bug 581627].
* generic/tkTest.c: Test commands not supported on non-Unix
platforms should not be defined there in the first place.
* tests/constraints.tcl: Fixed "secureserver" constraint.
* tests/unixWm.test: Some tests needed "unix" constraint.
* win/tkWinWm.c: Typo in error message.
Diffstat (limited to 'tests/constraints.tcl')
| -rw-r--r-- | tests/constraints.tcl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 3c28b3a..01ed60d 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -161,10 +161,13 @@ testConstraint pseudocolor8 [expr {([catch { destroy .t setupbg set app [dobg {tk appname}] -testConstraint secureserver 1 -if {[catch {send $app set a 0} msg] == 1} { - if {[string match "X server insecure *" $msg]} { - testConstraint secureserver 0 +testConstraint secureserver 0 +if {[llength [info commands send]]} { + testConstraint secureserver 1 + if {[catch {send $app set a 0} msg] == 1} { + if {[string match "X server insecure *" $msg]} { + testConstraint secureserver 0 + } } } cleanupbg |