summaryrefslogtreecommitdiffstats
path: root/tests/constraints.tcl
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2006-04-18 22:33:03 (GMT)
committervincentdarley <vincentdarley>2006-04-18 22:33:03 (GMT)
commit0cbfc6064d65ab72fd5b06021b23ea5ae4faa28d (patch)
tree070d3eb8fd0a8343b716b4543d49687990379852 /tests/constraints.tcl
parentddd87340e5617fbc7c41879c3ea844a8e53dfcb8 (diff)
downloadtk-0cbfc6064d65ab72fd5b06021b23ea5ae4faa28d.zip
tk-0cbfc6064d65ab72fd5b06021b23ea5ae4faa28d.tar.gz
tk-0cbfc6064d65ab72fd5b06021b23ea5ae4faa28d.tar.bz2
fix tests for TkAqua
Diffstat (limited to 'tests/constraints.tcl')
-rw-r--r--tests/constraints.tcl1
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl
index 6219004..3b786d9 100644
--- a/tests/constraints.tcl
+++ b/tests/constraints.tcl
@@ -145,6 +145,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 userInteraction 0
testConstraint nonUnixUserInteraction [expr {
[testConstraint userInteraction] || [testConstraint unix]