diff options
| author | das <das> | 2007-05-09 12:52:44 (GMT) |
|---|---|---|
| committer | das <das> | 2007-05-09 12:52:44 (GMT) |
| commit | b7ca14476921fec908be93647b91fe3947b5f824 (patch) | |
| tree | 6eda67904dbf0cfa0837f683cac25285710656c5 /tests/choosedir.test | |
| parent | e34afd70d21dec5f26e8f60db0ea38ff755af2d3 (diff) | |
| download | tk-b7ca14476921fec908be93647b91fe3947b5f824.zip tk-b7ca14476921fec908be93647b91fe3947b5f824.tar.gz tk-b7ca14476921fec908be93647b91fe3947b5f824.tar.bz2 | |
* tests/constraints.tcl: ensure 'nonUnixUserInteraction' constraint is
set for aqua.
* tests/choosedir.test: add 'notAqua' constraints to X11-only tests;
* tests/clrpick.test: add 'nonUnixUserInteraction' to 'unix' tests
* tests/menuDraw.test: requiring interaction on aqua.
* tests/unixMenu.test:
* tests/unixWm.test:
* tests/winMenu.test:
Diffstat (limited to 'tests/choosedir.test')
| -rw-r--r-- | tests/choosedir.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/choosedir.test b/tests/choosedir.test index d63d091..7d5d942 100644 --- a/tests/choosedir.test +++ b/tests/choosedir.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: choosedir.test,v 1.14 2004/12/08 03:02:53 dgp Exp $ +# RCS: @(#) $Id: choosedir.test,v 1.15 2007/05/09 12:52:44 das Exp $ # package require tcltest 2.1 @@ -100,12 +100,12 @@ test choosedir-1.3 "tk_chooseDirectory command" unix { } {1 {bad window path name "foo.bar"}} -test choosedir-2.1 "tk_chooseDirectory command, cancel gives null" unix { +test choosedir-2.1 "tk_chooseDirectory command, cancel gives null" {unix notAqua} { ToPressButton $parent cancel tk_chooseDirectory -title "Press Cancel" -parent $parent } "" -test choosedir-3.1 "tk_chooseDirectory -mustexist 1" unix { +test choosedir-3.1 "tk_chooseDirectory -mustexist 1" {unix notAqua} { # first enter a bogus dirname, then enter a real one. ToEnterDirsByKey $parent [list $fake $real $real] set result [tk_chooseDirectory \ @@ -113,23 +113,23 @@ test choosedir-3.1 "tk_chooseDirectory -mustexist 1" unix { -parent $parent -mustexist 1] set result } $real -test choosedir-3.2 "tk_chooseDirectory -mustexist 0" unix { +test choosedir-3.2 "tk_chooseDirectory -mustexist 0" {unix notAqua} { ToEnterDirsByKey $parent [list $fake $fake] tk_chooseDirectory -title "Enter \"$fake\", press OK" \ -parent $parent -mustexist 0 } $fake -test choosedir-4.1 "tk_chooseDirectory command, initialdir" unix { +test choosedir-4.1 "tk_chooseDirectory command, initialdir" {unix notAqua} { ToPressButton $parent ok tk_chooseDirectory -title "Press Ok" -parent $parent -initialdir $real } $real -test choosedir-4.2 "tk_chooseDirectory command, initialdir" unix { +test choosedir-4.2 "tk_chooseDirectory command, initialdir" {unix notAqua} { ToEnterDirsByKey $parent [list $fake $fake] tk_chooseDirectory \ -title "Enter \"$fake\" and press Ok" \ -parent $parent -initialdir $real } $fake -test choosedir-4.3 "tk_chooseDirectory, -initialdir {}" unix { +test choosedir-4.3 "tk_chooseDirectory, -initialdir {}" {unix notAqua} { catch {unset ::tk::dialog::file::__tk_choosedir} ToPressButton $parent ok tk_chooseDirectory \ @@ -137,7 +137,7 @@ test choosedir-4.3 "tk_chooseDirectory, -initialdir {}" unix { -parent $parent -initialdir "" } [pwd] -test choosedir-5.1 "tk_chooseDirectory, handles {} entry text" unix { +test choosedir-5.1 "tk_chooseDirectory, handles {} entry text" {unix notAqua} { ToEnterDirsByKey $parent [list "" $real $real] tk_chooseDirectory -title "Clear entry, Press OK; Enter $real, press OK" \ -parent $parent |