From 6498de133c258ebe49700fc29dad1f694378cd03 Mon Sep 17 00:00:00 2001 From: patthoyts Date: Sat, 26 Jul 2008 13:32:41 +0000 Subject: Conform to testing policy and added a nonwin contraint. [Bug 2024753] --- ChangeLog | 3 +++ tests/constraints.tcl | 1 + tests/listbox.test | 6 +++--- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7e37b51..c731b5a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2008-07-26 Pat Thoyts + * tests/constraints.tcl: Add a nonwin contraint. + * tests/listbox.test: Conform to testing policy. [Bug 2024753] + * win/tkWinWm.c: Check that the parent has been mapped before * tests/wm.test: calling RemapWindows. [Bug 2009788] 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 -- cgit v0.12