diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2008-07-26 13:32:41 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-07-26 13:32:41 (GMT) |
| commit | 6498de133c258ebe49700fc29dad1f694378cd03 (patch) | |
| tree | 9aff082d62c96d9ee8b973adf3a7795b4c0cb84f /tests/constraints.tcl | |
| parent | 4a1f0034dfc4fb19946e55eb85c55978943d93b7 (diff) | |
| download | tk-6498de133c258ebe49700fc29dad1f694378cd03.zip tk-6498de133c258ebe49700fc29dad1f694378cd03.tar.gz tk-6498de133c258ebe49700fc29dad1f694378cd03.tar.bz2 | |
Conform to testing policy and added a nonwin contraint. [Bug 2024753]
Diffstat (limited to 'tests/constraints.tcl')
| -rw-r--r-- | tests/constraints.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 94f7931..843ee4d 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -146,6 +146,7 @@ namespace import -force tk::test::* namespace import -force tcltest::testConstraint testConstraint notAqua [expr {[tk windowingsystem] ne "aqua"}] testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}] +testConstraint nonwin [expr {[tk windowingsystem] ne "win32"}] testConstraint userInteraction 0 testConstraint nonUnixUserInteraction [expr { [testConstraint userInteraction] || |