summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-07-26 13:32:41 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-07-26 13:32:41 (GMT)
commit6498de133c258ebe49700fc29dad1f694378cd03 (patch)
tree9aff082d62c96d9ee8b973adf3a7795b4c0cb84f /tests
parent4a1f0034dfc4fb19946e55eb85c55978943d93b7 (diff)
downloadtk-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')
-rw-r--r--tests/constraints.tcl1
-rw-r--r--tests/listbox.test6
2 files changed, 4 insertions, 3 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] ||
diff --git a/tests/listbox.test b/tests/listbox.test
index 92c4fda..a6ba719 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: listbox.test,v 1.30 2008/07/23 23:24:25 nijtmans Exp $
+# RCS: @(#) $Id: listbox.test,v 1.31 2008/07/26 13:32:44 patthoyts Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -2131,12 +2131,12 @@ test listbox-28.1 {listbox -activestyle} {
listbox .l -activ non
.l cget -activestyle
} none
-test listbox-28.2 {listbox -activestyle} {!win} {
+test listbox-28.2-nonwin {listbox -activestyle} {nonwin} {
destroy .l
listbox .l
.l cget -activestyle
} dotbox
-test listbox-28.2 {listbox -activestyle} {win} {
+test listbox-28.2-win {listbox -activestyle} {win} {
destroy .l
listbox .l
.l cget -activestyle