diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/constraints.tcl | 1 | ||||
| -rw-r--r-- | tests/listbox.test | 6 |
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 |